home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Utilities / Programming / EnterAct 3.5 / hAWK project / AWK Source / AWKTAB.C < prev    next >
Encoding:
C/C++ Source or Header  |  1995-04-22  |  100.8 KB  |  3,182 lines  |  [TEXT/TOPC]
  1.  
  2. /*  A Bison parser, made from awk.y.
  3. This parser has not as yet been reYACC'ed for the Mac version
  4. -it works just fine. */
  5. /* Modified for THINK C 4 on the Mac by Ken Earle (Dynabyte) Aug 1991. */
  6.  
  7. #define    FUNC_CALL    258
  8. #define    NAME    259
  9. #define    REGEXP    260
  10. #define    ERROR    261
  11. #define    NUMBER    262
  12. #define    YSTRING    263
  13. #define    RELOP    264
  14. #define    APPEND_OP    265
  15. #define    ASSIGNOP    266
  16. #define    MATCHOP    267
  17. #define    NEWLINE    268
  18. #define    CONCAT_OP    269
  19. #define    LEX_BEGIN    270
  20. #define    LEX_END    271
  21. #define    LEX_IF    272
  22. #define    LEX_ELSE    273
  23. #define    LEX_RETURN    274
  24. #define    LEX_DELETE    275
  25. #define    LEX_WHILE    276
  26. #define    LEX_DO    277
  27. #define    LEX_FOR    278
  28. #define    LEX_BREAK    279
  29. #define    LEX_CONTINUE    280
  30. #define    LEX_PRINT    281
  31. #define    LEX_PRINTF    282
  32. #define    LEX_NEXT    283
  33. #define    LEX_EXIT    284
  34. #define    LEX_FUNCTION    285
  35. #define    LEX_GETLINE    286
  36. #define    LEX_IN    287
  37. #define    LEX_AND    288
  38. #define    LEX_OR    289
  39. #define    INCREMENT    290
  40. #define    DECREMENT    291
  41. #define    LEX_BUILTIN    292
  42. #define    LEX_LENGTH    293
  43. #define    UNARY    294
  44.  
  45. #line 26 "awk.y"
  46.  
  47. #ifdef DEBUG
  48. #define YYDEBUG 12
  49. #endif
  50.  
  51. #include "AWK.H"
  52.  
  53. /*
  54.  * This line is necessary since the Bison parser skeleton uses bcopy.
  55.  * Systems without memcpy should use -DMEMCPY_MISSING, per the Makefile.
  56.  * It should not hurt anything if Yacc is being used instead of Bison.
  57.  */
  58. #define bcopy(s,d,n)    memcpy((d),(s),(n))
  59.  
  60. extern void msg(char *va_alist, ...);
  61. extern struct re_pattern_buffer *
  62.     mk_re_parse(char *s, short ignorecase);
  63.  
  64. /* AWKTAB.C */
  65. short yyparse(void);
  66. static void yyerror(char *va_alist, ...);
  67. short parse_escape(char **string_ptr);
  68. static short yylex(void);
  69. static FILE *pathopen(char *file);
  70. static NODE *node_common(NODETYPE op);
  71. NODE *node(NODE *left, NODETYPE op, NODE *right);
  72. static NODE *snode(NODE *subn, NODETYPE op, NODE *(*procp) ());
  73. static NODE *mkrangenode(NODE *cpair);
  74. static NODE *make_for_loop(NODE *init, NODE *cond, NODE *incr);
  75. NODE *install(NODE **table, char *name, NODE *value);
  76. NODE *lookup(NODE **table, char *name);
  77. static short hashf(register char *name, register short len, short hashsize);
  78. static NODE *append_right(NODE *list, NODE *new);
  79. static void func_install(NODE *params, NODE *def);
  80. static void pop_var(NODE *np, short freeit);
  81. static void pop_params(NODE *params);
  82. static NODE *make_param(char *name);
  83. NODE *variable(char *name);
  84.  
  85. static short want_regexp;        /* lexical scanning kludge */
  86. static short want_assign;        /* lexical scanning kludge */
  87. static short can_return;        /* lexical scanning kludge */
  88. static short io_allowed = 1;    /* lexical scanning kludge */
  89. static short lineno = 1;        /* for error msgs */
  90. static char *lexptr;        /* pointer to next char during parsing */
  91. static char *lexptr_begin;    /* keep track of where we were for error msgs */
  92. static short curinfile = -1;    /* index into sourcefiles[] */
  93. static short param_counter;
  94.  
  95. NODE *variables[HASHSIZE];
  96.  
  97. extern short errcount;
  98. extern NODE *begin_block;
  99. extern NODE *end_block;
  100.  
  101. #line 77 "awk.y"
  102. typedef union {
  103.     long lval;
  104.     AWKNUM fval;
  105.     NODE *nodeval;
  106.     NODETYPE nodetypeval;
  107.     char *sval;
  108.     NODE *(*ptrval)();
  109. } YYSTYPE;
  110.  
  111. #ifndef YYLTYPE
  112. typedef
  113.   struct yyltype
  114.     {
  115.       short timestamp;
  116.       short first_line;
  117.       short first_column;
  118.       short last_line;
  119.       short last_column;
  120.       char *text;
  121.    }
  122.   yyltype;
  123.  
  124. #define YYLTYPE yyltype
  125. #endif
  126.  
  127. #define    YYACCEPT    return(0)
  128. #define    YYABORT    return(1)
  129. #define    YYERROR    goto yyerrlab
  130. #include <stdio.h>
  131.  
  132. #ifndef __STDC__
  133. #define const
  134. #endif
  135.  
  136.  
  137.  
  138. #define    YYFINAL        298
  139. #define    YYFLAG        -32768
  140. #define    YYNTBASE    61
  141.  
  142. #define YYTRANSLATE(x) ((unsigned)(x) <= 294 ? yytranslate[x] : 105)
  143.  
  144. static const char yytranslate[] = {     0,
  145.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  146.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  147.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  148.      2,     2,    49,     2,     2,    52,    48,     2,     2,    53,
  149.     54,    46,    44,    60,    45,     2,    47,     2,     2,     2,
  150.      2,     2,     2,     2,     2,     2,     2,    40,    59,    41,
  151.      2,    42,    39,     2,     2,     2,     2,     2,     2,     2,
  152.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  153.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  154.     55,     2,    56,    51,     2,     2,     2,     2,     2,     2,
  155.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  156.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  157.      2,     2,    57,    43,    58,     2,     2,     2,     2,     2,
  158.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  159.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  160.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  161.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  162.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  163.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  164.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  165.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  166.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  167.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  168.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  169.      2,     2,     2,     2,     2,     2,     2,     2,     2,     2,
  170.      2,     2,     2,     2,     2,     1,     2,     3,     4,     5,
  171.      6,     7,     8,     9,    10,    11,    12,    13,    14,    15,
  172.     16,    17,    18,    19,    20,    21,    22,    23,    24,    25,
  173.     26,    27,    28,    29,    30,    31,    32,    33,    34,    35,
  174.     36,    37,    38,    50
  175. };
  176.  
  177. static const short yyrline[] = {     0,
  178.    136,   141,   149,   165,   166,   170,   172,   186,   188,   202,
  179.    208,   214,   216,   218,   220,   229,   231,   236,   240,   248,
  180.    257,   259,   268,   270,   281,   286,   291,   293,   301,   303,
  181.    308,   310,   316,   318,   320,   322,   324,   326,   328,   333,
  182.    337,   342,   345,   348,   350,   352,   355,   356,   358,   360,
  183.    362,   364,   369,   371,   376,   381,   388,   390,   395,   397,
  184.    402,   404,   409,   411,   413,   415,   420,   422,   427,   429,
  185.    431,   433,   435,   441,   443,   448,   450,   455,   457,   463,
  186.    465,   467,   469,   474,   476,   481,   483,   489,   491,   493,
  187.    495,   500,   503,   504,   506,   511,   520,   522,   524,   526,
  188.    528,   530,   532,   534,   536,   538,   540,   542,   547,   550,
  189.    551,   553,   555,   564,   566,   568,   570,   572,   574,   576,
  190.    578,   583,   585,   587,   589,   591,   593,   597,   599,   601,
  191.    603,   605,   607,   609,   613,   615,   617,   619,   621,   623,
  192.    625,   627,   632,   634,   639,   641,   643,   648,   652,   656,
  193.    660,   661,   665,   668
  194. };
  195.  
  196. /* In an application, this is OK
  197. static const char * const yytname[] = {     0,
  198. "error","$illegal.","FUNC_CALL","NAME","REGEXP","ERROR","NUMBER","YSTRING","RELOP","APPEND_OP",
  199. "ASSIGNOP","MATCHOP","NEWLINE","CONCAT_OP","LEX_BEGIN","LEX_END","LEX_IF","LEX_ELSE",
  200. "LEX_RETURN","LEX_DELETE",
  201. "LEX_WHILE","LEX_DO","LEX_FOR","LEX_BREAK","LEX_CONTINUE","LEX_PRINT","LEX_PRINTF",
  202. "LEX_NEXT","LEX_EXIT","LEX_FUNCTION",
  203. "LEX_GETLINE","LEX_IN","LEX_AND","LEX_OR","INCREMENT","DECREMENT","LEX_BUILTIN",
  204. "LEX_LENGTH","'?'","':'",
  205. "'<'","'>'","'|'","'+'","'-'","'*'","'/'","'%'","'!'","UNARY",
  206. "'^'","'$'","'('","')'","'['","']'","'{'","'}'","';'","','",
  207. "start"
  208. };
  209. */
  210. /* In  code resource, something horrible is needed - stop complaining, I did it for you...*/
  211. static char *yytname[62];
  212. void Inityytname(void);
  213. void Inityytname()
  214.     {
  215.     yytname[0] = (char *)0;
  216.     yytname[1] = "error";
  217.     yytname[2] = "$illegal.";
  218.     yytname[3] = "FUNC_CALL";
  219.     yytname[4] = "NAME";
  220.     yytname[5] = "REGEXP";
  221.     yytname[6] = "ERROR";
  222.     yytname[7] = "NUMBER";
  223.     yytname[8] = "YSTRING";
  224.     yytname[9] = "RELOP";
  225.     yytname[10] = "APPEND_OP";
  226.     yytname[11] = "ASSIGNOP";
  227.     yytname[12] = "MATCHOP";
  228.     yytname[13] = "NEWLINE";
  229.     yytname[14] = "CONCAT_OP";
  230.     yytname[15] = "LEX_BEGIN";
  231.     yytname[16] = "LEX_END";
  232.     yytname[17] = "LEX_IF";
  233.     yytname[18] = "LEX_ELSE";
  234.     yytname[19] = "LEX_RETURN";
  235.     yytname[20] = "LEX_DELETE";
  236.     yytname[21] = "LEX_WHILE";
  237.     yytname[22] = "LEX_DO";
  238.     yytname[23] = "LEX_FOR";
  239.     yytname[24] = "LEX_BREAK";
  240.     yytname[25] = "LEX_CONTINUE";
  241.     yytname[26] = "LEX_PRINT";
  242.     yytname[27] = "LEX_PRINTF";
  243.     yytname[28] = "LEX_NEXT";
  244.     yytname[29] = "LEX_EXIT";
  245.     yytname[30] = "LEX_FUNCTION";
  246.     yytname[31] = "LEX_GETLINE";
  247.     yytname[32] = "LEX_IN";
  248.     yytname[33] = "LEX_AND";
  249.     yytname[34] = "LEX_OR";
  250.     yytname[35] = "INCREMENT";
  251.     yytname[36] = "DECREMENT";
  252.     yytname[37] = "LEX_BUILTIN";
  253.     yytname[38] = "LEX_LENGTH";
  254.     yytname[39] = "'?'";
  255.     yytname[40] = "':'";
  256.     yytname[41] = "'<'";
  257.     yytname[42] = "'>'";
  258.     yytname[43] = "'|'";
  259.     yytname[44] = "'+'";
  260.     yytname[45] = "'-'";
  261.     yytname[46] = "'*'";
  262.     yytname[47] = "'/'";
  263.     yytname[48] = "'%'";
  264.     yytname[49] = "'!'";
  265.     yytname[50] = "UNARY";
  266.     yytname[51] = "'^'";
  267.     yytname[52] = "'$'";
  268.     yytname[53] = "'('";
  269.     yytname[54] = "')'";
  270.     yytname[55] = "'['";
  271.     yytname[56] = "']'";
  272.     yytname[57] = "'{'";
  273.     yytname[58] = "'}'";
  274.     yytname[59] = "';'";
  275.     yytname[60] = "','";
  276.     yytname[61] = "start";
  277.     }
  278.  
  279. static const short yyr1[] = {     0,
  280.     61,    62,    62,    62,    62,    64,    63,    65,    63,    63,
  281.     63,    63,    63,    63,    63,    66,    66,    68,    67,    69,
  282.     70,    70,    72,    71,    73,    73,    74,    74,    74,    74,
  283.     75,    75,    76,    76,    76,    76,    76,    76,    76,    76,
  284.     76,    76,    76,    76,    76,    77,    76,    76,    78,    76,
  285.     76,    76,    79,    79,    80,    80,    81,    81,    82,    82,
  286.     83,    83,    84,    84,    84,    84,    85,    85,    86,    86,
  287.     86,    86,    86,    87,    87,    88,    88,    89,    89,    89,
  288.     89,    89,    89,    90,    90,    91,    91,    91,    91,    91,
  289.     91,    93,    92,    92,    92,    92,    92,    92,    92,    92,
  290.     92,    92,    92,    92,    92,    92,    92,    92,    95,    94,
  291.     94,    94,    94,    94,    94,    94,    94,    94,    94,    94,
  292.     94,    96,    96,    96,    96,    96,    96,    96,    96,    96,
  293.     96,    96,    96,    96,    96,    96,    96,    96,    96,    96,
  294.     96,    96,    97,    97,    98,    98,    98,    99,   100,   101,
  295.    102,   102,   103,   104
  296. };
  297.  
  298. static const short yyr2[] = {     0,
  299.      3,     1,     2,     1,     2,     0,     3,     0,     3,     2,
  300.      2,     2,     1,     2,     2,     1,     1,     0,     7,     3,
  301.      1,     3,     0,     4,     3,     4,     1,     2,     1,     2,
  302.      1,     2,     2,     2,     3,     1,     6,     8,     8,    10,
  303.      9,     2,     2,     6,     4,     0,     3,     3,     0,     4,
  304.      6,     2,     1,     1,     6,     9,     1,     2,     0,     1,
  305.      0,     2,     0,     2,     2,     2,     0,     1,     1,     3,
  306.      1,     2,     3,     0,     1,     0,     1,     1,     3,     1,
  307.      2,     3,     3,     0,     1,     1,     3,     1,     2,     3,
  308.      3,     0,     4,     5,     4,     3,     3,     3,     3,     1,
  309.      2,     3,     3,     3,     3,     5,     1,     2,     0,     4,
  310.      3,     3,     3,     1,     2,     3,     3,     3,     5,     1,
  311.      2,     2,     3,     4,     4,     1,     4,     2,     2,     2,
  312.      2,     1,     1,     1,     3,     3,     3,     3,     3,     3,
  313.      2,     2,     0,     1,     1,     4,     2,     2,     2,     1,
  314.      0,     1,     1,     2
  315. };
  316.  
  317. static const short yydefact[] = {    59,
  318.     57,    60,     0,    58,     4,     0,   145,   133,   134,     6,
  319.      8,    18,   143,     0,     0,     0,   126,     0,     0,    23,
  320.      0,     0,     0,    59,     0,     2,     0,     0,   100,    13,
  321.     21,   107,   132,     0,     0,     0,   153,     0,    10,    31,
  322.     59,     0,    11,     0,    61,   144,   128,   129,     0,     0,
  323.      0,     0,   142,   132,   141,     0,   101,   122,   147,    88,
  324.      0,    86,   148,     5,     3,     1,    15,     0,    12,    14,
  325.      0,     0,     0,     0,     0,     0,     0,     0,     0,    59,
  326.    108,     0,     0,     0,     0,     0,     0,     0,    92,   130,
  327.    131,    29,     0,    49,     0,     0,    59,     0,     0,     0,
  328.     53,    54,    46,    74,    59,     0,    27,     0,    36,     0,
  329.      0,   151,    59,     0,     0,    86,     0,     7,    32,     9,
  330.     17,    16,     0,     0,    96,     0,     0,     0,     0,    89,
  331.    150,     0,     0,   123,     0,   103,    99,   102,    97,    98,
  332.      0,   104,   105,   143,   154,    22,   139,   140,   136,   137,
  333.    138,   135,     0,     0,    74,     0,     0,     0,    74,    42,
  334.     43,     0,     0,    75,   149,    30,    28,   151,    80,   143,
  335.      0,     0,   114,    63,     0,    78,   120,   132,    52,     0,
  336.     34,    25,   152,    33,   127,   146,     0,    62,   124,   125,
  337.     24,    90,     0,    91,    87,    20,     0,    95,    93,     0,
  338.      0,     0,     0,     0,   145,     0,    47,    48,    26,    61,
  339.    115,     0,     0,     0,     0,     0,    81,     0,     0,     0,
  340.      0,     0,     0,     0,   121,   109,    35,    71,    69,     0,
  341.      0,    94,   106,    59,    50,     0,    59,     0,     0,     0,
  342.    113,    63,    65,    64,    66,    45,    82,    83,    79,   118,
  343.    116,   117,   111,   112,     0,     0,    59,    72,     0,     0,
  344.      0,     0,     0,     0,     0,    74,     0,     0,   110,    19,
  345.     73,    70,    55,    51,    37,     0,    59,    74,     0,    44,
  346.    119,    59,    59,     0,     0,    59,     0,    38,    39,    59,
  347.      0,    56,     0,    41,    40,     0,     0,     0
  348. };
  349.  
  350. static const short yydefgoto[] = {   296,
  351.     25,    26,    38,    42,   123,    27,    44,    67,    28,    29,
  352.     56,    30,   106,    39,   107,   162,   155,   108,   109,     2,
  353.      3,   125,   216,   230,   231,   163,   174,   175,   114,   115,
  354.     81,   153,   225,   256,    32,    45,    33,   111,   112,   134,
  355.    182,   113,   133
  356. };
  357.  
  358. static const short yypact[] = {    21,
  359. -32768,    37,  1020,-32768,-32768,   -32,     1,-32768,-32768,    17,
  360.     17,-32768,    11,    11,    11,    31,    45,  1757,  1757,-32768,
  361.   1738,  1757,  1112,    21,   540,-32768,    13,    40,-32768,-32768,
  362.    816,   142,    55,   612,  1092,  1112,-32768,    13,-32768,    37,
  363.     21,    13,-32768,    51,    59,-32768,-32768,-32768,  1092,  1092,
  364.   1757,  1625,    27,    -7,    27,    97,-32768,    27,-32768,-32768,
  365.      4,  1225,-32768,-32768,-32768,-32768,-32768,   706,-32768,-32768,
  366.   1625,  1625,   100,  1625,  1625,  1625,  1625,  1625,    76,    21,
  367.    300,  1625,  1757,  1757,  1757,  1757,  1757,  1757,-32768,-32768,
  368. -32768,-32768,    52,-32768,   109,    62,    21,    64,    17,    17,
  369. -32768,-32768,-32768,  1625,    21,   659,-32768,   763,-32768,   920,
  370.    612,    65,    21,    67,     7,  1324,    25,-32768,-32768,-32768,
  371. -32768,-32768,    70,  1757,-32768,    67,    67,  1225,    84,  1625,
  372. -32768,   101,  1159,-32768,   659,  1811,  1796,-32768,  1465,  1371,
  373.   1277,  1811,  1811,    11,-32768,  1324,   -10,   -10,    27,    27,
  374.     27,    27,  1625,  1625,  1625,    87,  1625,   863,  1672,-32768,
  375. -32768,    17,    17,  1324,-32768,-32768,-32768,    65,-32768,    11,
  376.   1738,  1112,-32768,     9,     0,  1512,   142,    83,-32768,   659,
  377. -32768,-32768,-32768,-32768,-32768,-32768,     8,   142,-32768,-32768,
  378. -32768,  1324,   134,-32768,  1324,-32768,  1625,-32768,  1324,  1225,
  379.     17,  1112,  1225,   122,   -16,    65,-32768,-32768,-32768,    59,
  380. -32768,     4,  1625,  1625,  1625,    17,  1691,  1178,  1691,  1691,
  381.    140,  1691,  1691,  1691,   939,-32768,-32768,-32768,-32768,    67,
  382.     23,-32768,  1324,    21,-32768,    26,    21,    94,   144,  1045,
  383. -32768,     9,  1324,  1324,  1324,-32768,  1512,-32768,  1512,   782,
  384.   1858,-32768,  1606,  1559,  1418,  1691,    21,-32768,    44,   863,
  385.     17,   863,  1625,    67,   973,  1625,    17,  1691,  1512,-32768,
  386. -32768,-32768,   131,-32768,-32768,  1225,    21,  1625,    67,-32768,
  387.   1512,    21,    21,   863,    67,    21,   863,-32768,-32768,    21,
  388.    863,-32768,   863,-32768,-32768,   163,   166,-32768
  389. };
  390.  
  391. static const short yypgoto[] = {-32768,
  392. -32768,   145,-32768,-32768,-32768,-32768,-32768,-32768,-32768,   201,
  393. -32768,    78,   -54,    12,   225,-32768,-32768,-32768,-32768,   363,
  394.    104,   -39,   -70,-32768,-32768,  -152,-32768,-32768,    60,   -19,
  395.     -3,-32768,   -83,-32768,   146,  -126,    74,   178,  -100,   319,
  396.     10,   329,   -29
  397. };
  398.  
  399.  
  400. #define    YYLAST        1911
  401.  
  402.  
  403. static const short yytable[] = {    31,
  404.    217,    82,   201,    61,   130,   168,   206,   130,   228,   -77,
  405.    181,   229,   -77,   135,     7,   239,   117,   198,   213,    62,
  406.     35,    31,    43,   258,   176,   130,   130,    90,    91,     1,
  407.    110,   116,   116,     1,   196,    85,    86,    87,    36,    70,
  408.     88,   -77,   -77,   210,   271,   116,   116,   272,   128,     4,
  409.    214,   215,     1,   121,   122,    36,   180,   131,   -77,    80,
  410.    -85,   -67,    22,    80,   110,    89,    80,   136,   137,    24,
  411.    139,   140,   141,   142,   143,    37,   -68,    88,   146,   227,
  412.    186,   261,    80,    49,    80,    80,    46,    47,    48,    90,
  413.     91,    54,    54,   226,    54,    54,    24,    50,    37,   124,
  414.    164,   129,   110,   138,   154,    69,   144,   110,   126,   127,
  415.    160,   161,   156,   279,   157,   118,   159,    90,    91,   120,
  416.    131,   179,   187,    37,    54,   285,   192,    63,    66,   195,
  417.    191,   110,   193,   247,   249,   250,   251,   232,   253,   254,
  418.    255,   202,   238,   252,   119,   218,   263,   264,   282,   199,
  419.    200,   164,   212,   203,   110,   164,    54,    54,    54,    54,
  420.     54,    54,   297,    53,    55,   298,    58,    59,    62,    65,
  421.    241,   267,   269,   207,   208,     0,   110,   209,     0,     0,
  422.     34,   178,   236,   145,   281,    83,    84,    85,    86,    87,
  423.      0,     0,    88,   233,     0,     0,    58,    54,   116,     0,
  424.    158,   259,    34,     0,    68,    34,     0,     0,   165,   243,
  425.    244,   245,   235,     0,     0,    34,   184,    46,     0,    34,
  426.      0,    57,     0,     0,     0,     0,     0,   246,   147,   148,
  427.    149,   150,   151,   152,     0,     0,   265,     0,     0,     0,
  428.      0,     0,     0,    46,    54,     0,     0,     0,     0,   178,
  429.      0,     0,     0,   177,     0,     0,   110,     0,   110,   276,
  430.      0,     0,   164,     0,     0,     0,     0,     0,     0,   188,
  431.      0,     0,   274,     0,   164,     0,     0,     0,   280,     0,
  432.    110,     0,     0,   110,     0,     0,     0,   110,     0,   110,
  433.    178,   178,   178,   178,     0,   178,   178,   178,   178,     0,
  434.      0,     0,     0,     7,     0,     0,     8,     9,   173,     0,
  435.      0,     0,     0,     0,     0,     0,    58,     0,     0,     0,
  436.    178,   177,   178,   178,   178,     0,   178,   178,   178,   178,
  437.    167,     0,     0,     0,    14,    15,     0,   260,    41,    41,
  438.    262,   178,   178,    18,    19,     0,    20,     0,    21,     0,
  439.      0,    22,    23,     0,   178,     0,    41,     0,     0,   167,
  440.    270,     0,   177,   177,   177,   177,     0,   177,   177,   177,
  441.    177,   211,    40,    40,     0,     0,   173,     0,     0,   132,
  442.    284,     0,   204,     0,     0,   287,   288,     0,     0,   291,
  443.     40,     0,   177,   293,   177,   177,   177,     0,   177,   177,
  444.    177,   177,     0,     0,   167,     0,     0,     0,     0,     0,
  445.      0,     0,     0,   177,   177,     0,     0,   173,   173,   173,
  446.    173,     0,   173,   173,   173,   173,   177,    41,    41,     0,
  447.      0,     0,   185,     0,     0,     0,     0,     0,    41,     0,
  448.    183,     0,     0,     0,   189,   190,     0,   173,     0,   173,
  449.    173,   173,     0,   173,   173,   173,   173,     0,     0,     0,
  450.      0,    40,    40,     0,     0,     0,     0,     0,   173,   173,
  451.      0,     0,    40,     0,     0,     0,     0,     0,     0,     0,
  452.      0,   173,     0,     0,   273,     0,   275,     0,     0,     0,
  453.     41,    41,     0,     0,     0,     0,   183,     0,     0,     0,
  454.      0,     0,     0,     0,     0,     0,     0,     0,   289,     0,
  455.      0,   292,     0,     0,     0,   294,     0,   295,   234,     0,
  456.      0,   237,     0,     0,    40,    40,     0,     0,     0,    41,
  457.    242,     0,     0,     0,   240,     0,     0,     0,     0,   -59,
  458.     64,     0,     6,     7,    41,     0,     8,     9,   257,     0,
  459.      0,     0,     1,     0,    10,    11,     0,     0,     0,     0,
  460.      0,     0,     0,    40,     0,     0,     0,     0,   266,    12,
  461.     13,     0,     0,     0,    14,    15,    16,    17,    40,     0,
  462.      0,     0,   277,    18,    19,     0,    20,     0,    21,    41,
  463.      0,    22,    23,   278,   283,    41,    24,   286,     0,     0,
  464.      0,     0,     0,   290,     0,     0,     0,     0,     0,     0,
  465.      0,     0,    92,     0,     6,     7,     0,     0,     8,     9,
  466.      0,     0,     0,    40,     0,     0,     0,     0,    93,    40,
  467.     94,    95,    96,    97,    98,    99,   100,   101,   102,   103,
  468.    104,     0,    13,     0,     0,     0,    14,    15,    16,    17,
  469.      0,     0,     0,     0,     0,    18,    19,     0,    20,   166,
  470.     21,     6,     7,    22,    23,     8,     9,     0,    24,   105,
  471.     37,     0,     0,     0,     0,    93,     0,    94,    95,    96,
  472.     97,    98,    99,   100,   101,   102,   103,   104,     0,    13,
  473.      0,     0,     0,    14,    15,    16,    17,     0,     0,     0,
  474.      0,     0,    18,    19,     0,    20,    92,    21,     6,     7,
  475.     22,    23,     8,     9,     0,    24,   105,    37,     0,     0,
  476.      0,     0,    93,     0,    94,    95,    96,    97,    98,    99,
  477.    100,   101,   102,   103,   104,     0,    13,     0,     0,     0,
  478.     14,    15,    16,    17,     0,     0,     0,     0,     0,    18,
  479.     19,     0,    20,     0,    21,     0,     0,    22,    23,     0,
  480.      0,     0,    24,   169,    37,     6,     7,     0,     0,     8,
  481.      9,     0,   -76,     0,     0,   -76,     0,     0,     0,     0,
  482.      0,     0,     0,     0,     0,     7,     0,     0,     8,     9,
  483. -32768,     0,     0,   170,     0,     0,     0,    14,    15,    16,
  484.     17,     0,     0,     0,   -76,   -76,    18,    19,     0,    20,
  485.      0,   171,     0,     0,    22,   172,    14,    15,     6,     7,
  486.      0,   -76,     8,     9,    71,    18,    19,    72,    20,     0,
  487.    171,     0,     0,    22,    52,     0,     0,     0,     0,     0,
  488.      0,     0,     0,     0,     0,     0,    13,    73,    74,    75,
  489.     14,    15,    16,    17,    76,     0,    77,    78,    79,    18,
  490.     19,     0,    20,     0,    21,     6,     7,    22,    23,     8,
  491.      9,     0,     0,     0,     0,    80,     0,     0,     0,    93,
  492.      0,    94,    95,    96,    97,    98,    99,   100,   101,   102,
  493.    103,   104,     0,    13,     0,     0,     0,    14,    15,    16,
  494.     17,     0,     0,     0,     0,     0,    18,    19,     0,    20,
  495.      0,    21,     0,     0,    22,    23,     0,     0,     0,    24,
  496.      0,    37,     6,     7,     0,     0,     8,     9,    71,     0,
  497.      0,    72,     1,     0,     0,     0,     0,     0,     0,     0,
  498.      0,     0,     7,     0,     0,     8,     9,     0,     0,     0,
  499.     13,    73,    74,    75,    14,    15,    16,    17,    76,     0,
  500.     77,    78,    79,    18,    19,     0,    20,     0,    21,     0,
  501.      0,    22,    23,    14,    15,     6,     7,     0,    37,     8,
  502.      9,    71,    18,    19,    72,    20,     0,   171,     0,     0,
  503.     22,    52,     0,     0,     0,     0,     0,     0,     0,     0,
  504.      0,     0,     0,    13,    73,    74,    75,    14,    15,    16,
  505.     17,    76,     0,    77,    78,    79,    18,    19,     0,    20,
  506.      5,    21,     6,     7,    22,    23,     8,     9,     0,     0,
  507.      0,    37,     0,     0,    10,    11,     0,     0,     0,     0,
  508.      0,     0,     0,     0,     0,     0,     0,     6,     7,    12,
  509.     13,     8,     9,     0,    14,    15,    16,    17,     0,     0,
  510.      0,     0,     0,    18,    19,     0,    20,     0,    21,     0,
  511.      0,    22,    23,     0,     0,    13,    24,     0,     0,    14,
  512.     15,    16,    17,     0,     0,     0,     0,     0,    18,    19,
  513.      0,    20,    60,    21,     6,     7,    22,    23,     8,     9,
  514.      0,     0,     0,    37,     0,     0,     0,     0,     0,     0,
  515.      0,     0,    60,     0,     6,     7,     0,     0,     8,     9,
  516.      0,     0,    13,     0,     0,     0,    14,    15,    16,    17,
  517.      0,     0,     0,     0,     0,    18,    19,     0,    20,     0,
  518.     21,     0,    13,    22,    23,   -84,    14,    15,    16,    17,
  519.      0,     0,     0,     0,     0,    18,    19,     0,    20,   194,
  520.     21,     6,     7,    22,    23,     8,     9,     0,     0,     0,
  521.      0,     0,     0,     0,     0,     0,     0,     0,   248,     0,
  522.      6,     7,     0,     0,     8,     9,     0,     0,     0,    13,
  523.      0,     0,     0,    14,    15,    16,    17,     0,     0,     0,
  524.      0,     0,    18,    19,     0,    20,     0,    21,   170,     0,
  525.     22,    23,    14,    15,    16,    17,     0,     0,     0,     0,
  526.      0,    18,    19,     0,    20,     0,   171,     6,     7,    22,
  527.     52,     8,     9,    71,     0,     0,    72,     0,     0,     0,
  528.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  529.      0,     0,     0,     0,     0,    13,    73,    74,    75,    14,
  530.     15,    16,    17,    76,     0,    77,    78,    79,    18,    19,
  531.      0,    20,     0,    21,     0,     0,    22,    23,   131,     6,
  532.      7,     0,     0,     8,     9,    71,     0,     0,    72,     0,
  533.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  534.      0,     0,     0,     0,     0,     0,     0,    13,    73,    74,
  535.     75,    14,    15,    16,    17,    76,   197,    77,    78,    79,
  536.     18,    19,     0,    20,     0,    21,     6,     7,    22,    23,
  537.      8,     9,    71,     0,     0,    72,     0,     0,     0,     0,
  538.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  539.      0,     0,     0,     0,    13,    73,    74,    75,    14,    15,
  540.     16,    17,    76,     0,    77,    78,    79,    18,    19,     0,
  541.     20,     0,    21,     6,     7,    22,    23,     8,     9,    71,
  542.      0,     0,    72,     0,     0,     0,     0,     0,     0,     0,
  543.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  544.      0,    13,    73,    74,     0,    14,    15,    16,    17,     0,
  545.      0,    77,    78,    79,    18,    19,     0,    20,     0,    21,
  546.      6,     7,    22,    23,     8,     9,   219,     0,     0,   220,
  547.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  548.      0,     0,     0,     0,     0,     0,     0,     0,   170,   221,
  549.    222,   223,    14,    15,    16,    17,   224,   268,     0,     0,
  550.      0,    18,    19,     0,    20,     0,   171,     6,     7,    22,
  551.     52,     8,     9,    71,     0,     0,    72,     0,     0,     0,
  552.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  553.      0,     0,     0,     0,     0,    13,    73,     0,     0,    14,
  554.     15,    16,    17,     0,     0,    77,    78,    79,    18,    19,
  555.      0,    20,     0,    21,     6,     7,    22,    23,     8,     9,
  556.    219,     0,     0,   220,     0,     0,     0,     0,     0,     0,
  557.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  558.      0,     0,   170,   221,   222,   223,    14,    15,    16,    17,
  559.    224,     0,     0,     0,     0,    18,    19,     0,    20,     0,
  560.    171,     6,     7,    22,    52,     8,     9,   219,     0,     0,
  561.    220,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  562.      0,     0,     0,     0,     0,     0,     0,     0,     0,   170,
  563.    221,   222,     0,    14,    15,    16,    17,     0,     0,     0,
  564.      0,     0,    18,    19,     0,    20,     0,   171,     6,     7,
  565.     22,    52,     8,     9,   219,     0,     0,   220,     0,     0,
  566.      0,     0,     0,     0,     0,     0,     0,     6,     7,     0,
  567.      0,     8,     9,     0,     0,     0,   170,   221,     0,     0,
  568.     14,    15,    16,    17,     0,     0,     0,     0,     0,    18,
  569.     19,     0,    20,     0,   171,    13,     0,    22,    52,    14,
  570.     15,    16,    17,     0,     0,     0,     0,     0,    18,    19,
  571.      0,    20,     0,    21,     6,   205,    22,    23,     8,     9,
  572.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  573.      0,     0,     0,     6,     7,     0,     0,     8,     9,     0,
  574.      0,     0,    13,     0,     0,     0,    14,    15,    16,    17,
  575.      0,     0,     0,     0,     0,    18,    19,     0,    20,     0,
  576.     21,   170,     0,    22,    23,    14,    15,    16,    17,     0,
  577.      0,     0,     0,     0,    18,    19,     0,    20,     0,   171,
  578.      6,     7,    22,    52,     8,     9,     0,     0,     0,     0,
  579.      0,     0,     0,     0,     0,     0,     0,     0,     0,     6,
  580.      7,     0,     0,     8,     9,     0,     0,     0,     0,     0,
  581.      0,     0,    14,    15,    16,    17,     0,     0,     0,     0,
  582.      0,    18,    19,     0,    20,     0,    51,     0,     0,    22,
  583.     52,    14,    15,    16,    17,     0,     0,     0,     0,     7,
  584.     18,    19,     8,     9,    71,    51,     0,-32768,    22,    52,
  585.      0,     0,     0,     0,     7,     0,     0,     8,     9,-32768,
  586.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  587.     14,    15,     0,     0,     0,     0,    77,    78,    79,    18,
  588.     19,     0,    20,     0,    21,    14,    15,    22,    23,     0,
  589.      0,-32768,-32768,-32768,    18,    19,     0,    20,     0,    21,
  590.      0,     7,    22,    23,     8,     9,   219,     0,     0,-32768,
  591.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  592.      0,     0,     0,     0,     0,     0,     0,     0,     0,     0,
  593.      0,     0,    14,    15,     0,     0,     0,     0,     0,     0,
  594.      0,    18,    19,     0,    20,     0,   171,     0,     0,    22,
  595.     52
  596. };
  597.  
  598. static const short yycheck[] = {     3,
  599.      1,    31,   155,    23,     1,   106,   159,     1,     1,    10,
  600.    111,     4,    13,    68,     4,    32,    36,   144,    10,    23,
  601.     53,    25,    11,     1,   108,     1,     1,    35,    36,    13,
  602.     34,    35,    36,    13,   135,    46,    47,    48,    55,    28,
  603.     51,    42,    43,   170,     1,    49,    50,     4,    52,    13,
  604.     42,    43,    13,     3,     4,    55,   111,    54,    59,    60,
  605.     54,    54,    52,    60,    68,    11,    60,    71,    72,    57,
  606.     74,    75,    76,    77,    78,    59,    54,    51,    82,   180,
  607.     56,    56,    60,    53,    60,    60,    13,    14,    15,    35,
  608.     36,    18,    19,    11,    21,    22,    57,    53,    59,    41,
  609.    104,     5,   106,     4,    53,    28,    31,   111,    49,    50,
  610.     99,   100,     4,   266,    53,    38,    53,    35,    36,    42,
  611.     54,   110,    53,    59,    51,   278,   130,    24,    25,   133,
  612.     47,   135,    32,   217,   218,   219,   220,     4,   222,   223,
  613.    224,    55,    21,     4,    41,   175,    53,     4,    18,   153,
  614.    154,   155,   172,   157,   158,   159,    83,    84,    85,    86,
  615.     87,    88,     0,    18,    19,     0,    21,    22,   172,    25,
  616.    210,   242,   256,   162,   163,    -1,   180,   168,    -1,    -1,
  617.      3,   108,   202,    80,   268,    44,    45,    46,    47,    48,
  618.     -1,    -1,    51,   197,    -1,    -1,    51,   124,   202,    -1,
  619.     97,   231,    25,    -1,    27,    28,    -1,    -1,   105,   213,
  620.    214,   215,   201,    -1,    -1,    38,   113,   144,    -1,    42,
  621.     -1,    21,    -1,    -1,    -1,    -1,    -1,   216,    83,    84,
  622.     85,    86,    87,    88,    -1,    -1,   240,    -1,    -1,    -1,
  623.     -1,    -1,    -1,   170,   171,    -1,    -1,    -1,    -1,   176,
  624.     -1,    -1,    -1,   108,    -1,    -1,   260,    -1,   262,   263,
  625.     -1,    -1,   266,    -1,    -1,    -1,    -1,    -1,    -1,   124,
  626.     -1,    -1,   261,    -1,   278,    -1,    -1,    -1,   267,    -1,
  627.    284,    -1,    -1,   287,    -1,    -1,    -1,   291,    -1,   293,
  628.    217,   218,   219,   220,    -1,   222,   223,   224,   225,    -1,
  629.     -1,    -1,    -1,     4,    -1,    -1,     7,     8,   108,    -1,
  630.     -1,    -1,    -1,    -1,    -1,    -1,   171,    -1,    -1,    -1,
  631.    247,   176,   249,   250,   251,    -1,   253,   254,   255,   256,
  632.    106,    -1,    -1,    -1,    35,    36,    -1,   234,    10,    11,
  633.    237,   268,   269,    44,    45,    -1,    47,    -1,    49,    -1,
  634.     -1,    52,    53,    -1,   281,    -1,    28,    -1,    -1,   135,
  635.    257,    -1,   217,   218,   219,   220,    -1,   222,   223,   224,
  636.    225,   171,    10,    11,    -1,    -1,   176,    -1,    -1,    61,
  637.    277,    -1,   158,    -1,    -1,   282,   283,    -1,    -1,   286,
  638.     28,    -1,   247,   290,   249,   250,   251,    -1,   253,   254,
  639.    255,   256,    -1,    -1,   180,    -1,    -1,    -1,    -1,    -1,
  640.     -1,    -1,    -1,   268,   269,    -1,    -1,   217,   218,   219,
  641.    220,    -1,   222,   223,   224,   225,   281,    99,   100,    -1,
  642.     -1,    -1,   114,    -1,    -1,    -1,    -1,    -1,   110,    -1,
  643.    112,    -1,    -1,    -1,   126,   127,    -1,   247,    -1,   249,
  644.    250,   251,    -1,   253,   254,   255,   256,    -1,    -1,    -1,
  645.     -1,    99,   100,    -1,    -1,    -1,    -1,    -1,   268,   269,
  646.     -1,    -1,   110,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  647.     -1,   281,    -1,    -1,   260,    -1,   262,    -1,    -1,    -1,
  648.    162,   163,    -1,    -1,    -1,    -1,   168,    -1,    -1,    -1,
  649.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,   284,    -1,
  650.     -1,   287,    -1,    -1,    -1,   291,    -1,   293,   200,    -1,
  651.     -1,   203,    -1,    -1,   162,   163,    -1,    -1,    -1,   201,
  652.    212,    -1,    -1,    -1,   206,    -1,    -1,    -1,    -1,     0,
  653.      1,    -1,     3,     4,   216,    -1,     7,     8,   230,    -1,
  654.     -1,    -1,    13,    -1,    15,    16,    -1,    -1,    -1,    -1,
  655.     -1,    -1,    -1,   201,    -1,    -1,    -1,    -1,   240,    30,
  656.     31,    -1,    -1,    -1,    35,    36,    37,    38,   216,    -1,
  657.     -1,    -1,   264,    44,    45,    -1,    47,    -1,    49,   261,
  658.     -1,    52,    53,   265,   276,   267,    57,   279,    -1,    -1,
  659.     -1,    -1,    -1,   285,    -1,    -1,    -1,    -1,    -1,    -1,
  660.     -1,    -1,     1,    -1,     3,     4,    -1,    -1,     7,     8,
  661.     -1,    -1,    -1,   261,    -1,    -1,    -1,    -1,    17,   267,
  662.     19,    20,    21,    22,    23,    24,    25,    26,    27,    28,
  663.     29,    -1,    31,    -1,    -1,    -1,    35,    36,    37,    38,
  664.     -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,     1,
  665.     49,     3,     4,    52,    53,     7,     8,    -1,    57,    58,
  666.     59,    -1,    -1,    -1,    -1,    17,    -1,    19,    20,    21,
  667.     22,    23,    24,    25,    26,    27,    28,    29,    -1,    31,
  668.     -1,    -1,    -1,    35,    36,    37,    38,    -1,    -1,    -1,
  669.     -1,    -1,    44,    45,    -1,    47,     1,    49,     3,     4,
  670.     52,    53,     7,     8,    -1,    57,    58,    59,    -1,    -1,
  671.     -1,    -1,    17,    -1,    19,    20,    21,    22,    23,    24,
  672.     25,    26,    27,    28,    29,    -1,    31,    -1,    -1,    -1,
  673.     35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,
  674.     45,    -1,    47,    -1,    49,    -1,    -1,    52,    53,    -1,
  675.     -1,    -1,    57,     1,    59,     3,     4,    -1,    -1,     7,
  676.      8,    -1,    10,    -1,    -1,    13,    -1,    -1,    -1,    -1,
  677.     -1,    -1,    -1,    -1,    -1,     4,    -1,    -1,     7,     8,
  678.      9,    -1,    -1,    31,    -1,    -1,    -1,    35,    36,    37,
  679.     38,    -1,    -1,    -1,    42,    43,    44,    45,    -1,    47,
  680.     -1,    49,    -1,    -1,    52,    53,    35,    36,     3,     4,
  681.     -1,    59,     7,     8,     9,    44,    45,    12,    47,    -1,
  682.     49,    -1,    -1,    52,    53,    -1,    -1,    -1,    -1,    -1,
  683.     -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,    34,
  684.     35,    36,    37,    38,    39,    -1,    41,    42,    43,    44,
  685.     45,    -1,    47,    -1,    49,     3,     4,    52,    53,     7,
  686.      8,    -1,    -1,    -1,    -1,    60,    -1,    -1,    -1,    17,
  687.     -1,    19,    20,    21,    22,    23,    24,    25,    26,    27,
  688.     28,    29,    -1,    31,    -1,    -1,    -1,    35,    36,    37,
  689.     38,    -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,
  690.     -1,    49,    -1,    -1,    52,    53,    -1,    -1,    -1,    57,
  691.     -1,    59,     3,     4,    -1,    -1,     7,     8,     9,    -1,
  692.     -1,    12,    13,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  693.     -1,    -1,     4,    -1,    -1,     7,     8,    -1,    -1,    -1,
  694.     31,    32,    33,    34,    35,    36,    37,    38,    39,    -1,
  695.     41,    42,    43,    44,    45,    -1,    47,    -1,    49,    -1,
  696.     -1,    52,    53,    35,    36,     3,     4,    -1,    59,     7,
  697.      8,     9,    44,    45,    12,    47,    -1,    49,    -1,    -1,
  698.     52,    53,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  699.     -1,    -1,    -1,    31,    32,    33,    34,    35,    36,    37,
  700.     38,    39,    -1,    41,    42,    43,    44,    45,    -1,    47,
  701.      1,    49,     3,     4,    52,    53,     7,     8,    -1,    -1,
  702.     -1,    59,    -1,    -1,    15,    16,    -1,    -1,    -1,    -1,
  703.     -1,    -1,    -1,    -1,    -1,    -1,    -1,     3,     4,    30,
  704.     31,     7,     8,    -1,    35,    36,    37,    38,    -1,    -1,
  705.     -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,    -1,
  706.     -1,    52,    53,    -1,    -1,    31,    57,    -1,    -1,    35,
  707.     36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,    45,
  708.     -1,    47,     1,    49,     3,     4,    52,    53,     7,     8,
  709.     -1,    -1,    -1,    59,    -1,    -1,    -1,    -1,    -1,    -1,
  710.     -1,    -1,     1,    -1,     3,     4,    -1,    -1,     7,     8,
  711.     -1,    -1,    31,    -1,    -1,    -1,    35,    36,    37,    38,
  712.     -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,
  713.     49,    -1,    31,    52,    53,    54,    35,    36,    37,    38,
  714.     -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,     1,
  715.     49,     3,     4,    52,    53,     7,     8,    -1,    -1,    -1,
  716.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     1,    -1,
  717.      3,     4,    -1,    -1,     7,     8,    -1,    -1,    -1,    31,
  718.     -1,    -1,    -1,    35,    36,    37,    38,    -1,    -1,    -1,
  719.     -1,    -1,    44,    45,    -1,    47,    -1,    49,    31,    -1,
  720.     52,    53,    35,    36,    37,    38,    -1,    -1,    -1,    -1,
  721.     -1,    44,    45,    -1,    47,    -1,    49,     3,     4,    52,
  722.     53,     7,     8,     9,    -1,    -1,    12,    -1,    -1,    -1,
  723.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  724.     -1,    -1,    -1,    -1,    -1,    31,    32,    33,    34,    35,
  725.     36,    37,    38,    39,    -1,    41,    42,    43,    44,    45,
  726.     -1,    47,    -1,    49,    -1,    -1,    52,    53,    54,     3,
  727.      4,    -1,    -1,     7,     8,     9,    -1,    -1,    12,    -1,
  728.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  729.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,    32,    33,
  730.     34,    35,    36,    37,    38,    39,    40,    41,    42,    43,
  731.     44,    45,    -1,    47,    -1,    49,     3,     4,    52,    53,
  732.      7,     8,     9,    -1,    -1,    12,    -1,    -1,    -1,    -1,
  733.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  734.     -1,    -1,    -1,    -1,    31,    32,    33,    34,    35,    36,
  735.     37,    38,    39,    -1,    41,    42,    43,    44,    45,    -1,
  736.     47,    -1,    49,     3,     4,    52,    53,     7,     8,     9,
  737.     -1,    -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  738.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  739.     -1,    31,    32,    33,    -1,    35,    36,    37,    38,    -1,
  740.     -1,    41,    42,    43,    44,    45,    -1,    47,    -1,    49,
  741.      3,     4,    52,    53,     7,     8,     9,    -1,    -1,    12,
  742.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  743.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,    32,
  744.     33,    34,    35,    36,    37,    38,    39,    40,    -1,    -1,
  745.     -1,    44,    45,    -1,    47,    -1,    49,     3,     4,    52,
  746.     53,     7,     8,     9,    -1,    -1,    12,    -1,    -1,    -1,
  747.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  748.     -1,    -1,    -1,    -1,    -1,    31,    32,    -1,    -1,    35,
  749.     36,    37,    38,    -1,    -1,    41,    42,    43,    44,    45,
  750.     -1,    47,    -1,    49,     3,     4,    52,    53,     7,     8,
  751.      9,    -1,    -1,    12,    -1,    -1,    -1,    -1,    -1,    -1,
  752.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  753.     -1,    -1,    31,    32,    33,    34,    35,    36,    37,    38,
  754.     39,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,
  755.     49,     3,     4,    52,    53,     7,     8,     9,    -1,    -1,
  756.     12,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  757.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    31,
  758.     32,    33,    -1,    35,    36,    37,    38,    -1,    -1,    -1,
  759.     -1,    -1,    44,    45,    -1,    47,    -1,    49,     3,     4,
  760.     52,    53,     7,     8,     9,    -1,    -1,    12,    -1,    -1,
  761.     -1,    -1,    -1,    -1,    -1,    -1,    -1,     3,     4,    -1,
  762.     -1,     7,     8,    -1,    -1,    -1,    31,    32,    -1,    -1,
  763.     35,    36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,
  764.     45,    -1,    47,    -1,    49,    31,    -1,    52,    53,    35,
  765.     36,    37,    38,    -1,    -1,    -1,    -1,    -1,    44,    45,
  766.     -1,    47,    -1,    49,     3,     4,    52,    53,     7,     8,
  767.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  768.     -1,    -1,    -1,     3,     4,    -1,    -1,     7,     8,    -1,
  769.     -1,    -1,    31,    -1,    -1,    -1,    35,    36,    37,    38,
  770.     -1,    -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,
  771.     49,    31,    -1,    52,    53,    35,    36,    37,    38,    -1,
  772.     -1,    -1,    -1,    -1,    44,    45,    -1,    47,    -1,    49,
  773.      3,     4,    52,    53,     7,     8,    -1,    -1,    -1,    -1,
  774.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,     3,
  775.      4,    -1,    -1,     7,     8,    -1,    -1,    -1,    -1,    -1,
  776.     -1,    -1,    35,    36,    37,    38,    -1,    -1,    -1,    -1,
  777.     -1,    44,    45,    -1,    47,    -1,    49,    -1,    -1,    52,
  778.     53,    35,    36,    37,    38,    -1,    -1,    -1,    -1,     4,
  779.     44,    45,     7,     8,     9,    49,    -1,    12,    52,    53,
  780.     -1,    -1,    -1,    -1,     4,    -1,    -1,     7,     8,     9,
  781.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  782.     35,    36,    -1,    -1,    -1,    -1,    41,    42,    43,    44,
  783.     45,    -1,    47,    -1,    49,    35,    36,    52,    53,    -1,
  784.     -1,    41,    42,    43,    44,    45,    -1,    47,    -1,    49,
  785.     -1,     4,    52,    53,     7,     8,     9,    -1,    -1,    12,
  786.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  787.     -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,    -1,
  788.     -1,    -1,    35,    36,    -1,    -1,    -1,    -1,    -1,    -1,
  789.     -1,    44,    45,    -1,    47,    -1,    49,    -1,    -1,    52,
  790.     53
  791. };
  792. #define YYPURE 1
  793.  
  794. /* -*-C-*-  Note some compilers choke on comments on `#line' lines.  */
  795. #line 3 "bison.simple"
  796.  
  797. /* Skeleton output parser for bison,
  798.    Copyright (C) 1984 Bob Corbett and Richard Stallman
  799.  
  800.    This program is free software; you can redistribute it and/or modify
  801.    it under the terms of the GNU General Public License as published by
  802.    the Free Software Foundation; either version 1, or (at your option)
  803.    any later version.
  804.  
  805.    This program is distributed in the hope that it will be useful,
  806.    but WITHOUT ANY WARRANTY; without even the implied warranty of
  807.    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  808.    GNU General Public License for more details.
  809.  
  810.    You should have received a copy of the GNU General Public License
  811.    along with this program; if not, write to the Free Software
  812.    Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
  813.  
  814.  
  815. #if (!defined (__STDC__) && defined (sparc)) || defined (__sparc__)
  816. #include <alloca.h>
  817. #endif
  818.  
  819. /* This is the parser code that is written into each bison parser
  820.   when the %semantic_parser declaration is not specified in the grammar.
  821.   It was written by Richard Stallman by simplifying the hairy parser
  822.   used when %semantic_parser is specified.  */
  823.  
  824. /* Note: there must be only one dollar sign in this file.
  825.    It is replaced by the list of actions, each action
  826.    as one case of the switch.  */
  827.  
  828. #define yyerrok        (yyerrstatus = 0)
  829. #define yyclearin    (yychar = YYEMPTY)
  830. #define YYEMPTY        -2
  831. #define YYEOF        0
  832. #define YYFAIL        goto yyerrlab;
  833. /* - done above, THINK C objects to second time 
  834. #define YYACCEPT    return(0)
  835. #define YYABORT     return(1)
  836. #define YYERROR        goto yyerrlab
  837. */
  838. #define YYTERROR    1
  839. #define YYERRCODE    256
  840.  
  841. #ifndef YYIMPURE
  842. #define YYLEX        yylex()
  843. #endif
  844.  
  845. #ifndef YYPURE
  846. #define YYLEX        yylex(&yylval, &yylloc)
  847. #endif
  848.  
  849. /* If nonreentrant, generate the variables here */
  850.  
  851. #ifndef YYIMPURE
  852.  
  853. short    yychar;            /*  the lookahead symbol        */
  854. YYSTYPE    yylval;            /*  the semantic value of the        */
  855.                 /*  lookahead symbol            */
  856.  
  857. YYLTYPE yylloc;            /*  location data for the lookahead    */
  858.                 /*  symbol                */
  859.  
  860. short yynerrs;            /*  number of parse errors so far       */
  861. #endif  /* YYIMPURE */
  862.  
  863. #if YYDEBUG != 0
  864. short yydebug;            /*  nonzero means print parse trace    */
  865. /* Since this is uninitialized, it does not stop multiple parsers
  866.    from coexisting.  */
  867. #endif
  868.  
  869. /*  YYMAXDEPTH indicates the initial size of the parser's stacks    */
  870.  
  871. #ifndef    YYMAXDEPTH
  872. #define YYMAXDEPTH 200
  873. #endif
  874.  
  875. /*  YYMAXLIMIT is the maximum size the stacks can grow to
  876.     (effective only if the built-in stack extension method is used).  */
  877.  
  878. #ifndef YYMAXLIMIT
  879. #define YYMAXLIMIT 10000
  880. #endif
  881.  
  882.  
  883. #line 90 "bison.simple"
  884. short yyparse()
  885. {
  886.   register short yystate;
  887.   register short yyn;
  888.   register short *yyssp;
  889.   register YYSTYPE *yyvsp;
  890.   YYLTYPE *yylsp;
  891.   short yyerrstatus;    /*  number of tokens to shift before error messages enabled */
  892.   short yychar1;        /*  lookahead token as an internal (translated) token number */
  893.  
  894.   short    yyssa[YYMAXDEPTH];    /*  the state stack            */
  895.   YYSTYPE yyvsa[YYMAXDEPTH];    /*  the semantic value stack        */
  896.   YYLTYPE yylsa[YYMAXDEPTH];    /*  the location stack            */
  897.  
  898.   short *yyss = yyssa;        /*  refer to the stacks thru separate pointers */
  899.   YYSTYPE *yyvs = yyvsa;    /*  to allow yyoverflow to reallocate them elsewhere */
  900.   YYLTYPE *yyls = yylsa;
  901.  
  902.   short yymaxdepth = YYMAXDEPTH;
  903.  
  904. #ifndef YYPURE
  905.   short yychar;
  906.   YYSTYPE yylval;
  907.   YYLTYPE yylloc;
  908.   short yynerrs;
  909. #endif
  910.  
  911.   YYSTYPE yyval;        /*  the variable used to return        */
  912.                 /*  semantic values from the action    */
  913.                 /*  routines                */
  914.  
  915.   short yylen;
  916.  
  917. #if YYDEBUG != 0
  918.   if (yydebug)
  919.     fprintf(stderr, "Starting parse\n");
  920. #endif
  921.  
  922.   yystate = 0;
  923.   yyerrstatus = 0;
  924.   yynerrs = 0;
  925.   yychar = YYEMPTY;        /* Cause a token to be read.  */
  926.  
  927.   /* Initialize stack pointers.
  928.      Waste one element of value and location stack
  929.      so that they stay on the same level as the state stack.  */
  930.  
  931.   yyssp = yyss - 1;
  932.   yyvsp = yyvs;
  933.   yylsp = yyls;
  934.  
  935. /* Push a new state, which is found in  yystate  .  */
  936. /* In all cases, when you get here, the value and location stacks
  937.    have just been pushed. so pushing a state here evens the stacks.  */
  938. yynewstate:
  939.  
  940.   *++yyssp = yystate;
  941.  
  942.   if (yyssp >= yyss + yymaxdepth - 1)
  943.     {
  944.       /* Give user a chance to reallocate the stack */
  945.       /* Use copies of these so that the &'s don't force the real ones into memory. */
  946.       YYSTYPE *yyvs1 = yyvs;
  947.       YYLTYPE *yyls1 = yyls;
  948.       short *yyss1 = yyss;
  949.  
  950.       /* Get the current used size of the three stacks, in elements.  */
  951.       short size = (short)(yyssp - yyss) + 1;
  952.  
  953. #ifdef yyoverflow
  954.       /* Each stack pointer address is followed by the size of
  955.      the data in use in that stack, in bytes.  */
  956.       yyoverflow("parser stack overflow",
  957.          &yyss1, size * sizeof (*yyssp),
  958.          &yyvs1, size * sizeof (*yyvsp),
  959.          &yyls1, size * sizeof (*yylsp),
  960.          &yymaxdepth);
  961.  
  962.       yyss = yyss1; yyvs = yyvs1; yyls = yyls1;
  963. #else /* no yyoverflow */
  964.       /* Extend the stack our own way.  */
  965.       if (yymaxdepth >= YYMAXLIMIT)
  966.     yyerror("parser stack overflow");
  967.       yymaxdepth *= 2;
  968.       if (yymaxdepth > YYMAXLIMIT)
  969.     yymaxdepth = YYMAXLIMIT;
  970.       yyss = (short *) alloca (yymaxdepth * sizeof (*yyssp));
  971.       bcopy ((char *)yyss1, (char *)yyss, size * sizeof (*yyssp));
  972.       yyvs = (YYSTYPE *) alloca (yymaxdepth * sizeof (*yyvsp));
  973.       bcopy ((char *)yyvs1, (char *)yyvs, size * sizeof (*yyvsp));
  974. #ifdef YYLSP_NEEDED
  975.       yyls = (YYLTYPE *) alloca (yymaxdepth * sizeof (*yylsp));
  976.       bcopy ((char *)yyls1, (char *)yyls, size * sizeof (*yylsp));
  977. #endif
  978. #endif /* no yyoverflow */
  979.  
  980.       yyssp = yyss + size - 1;
  981.       yyvsp = yyvs + size - 1;
  982. #ifdef YYLSP_NEEDED
  983.       yylsp = yyls + size - 1;
  984. #endif
  985.  
  986. #if YYDEBUG != 0
  987.       if (yydebug)
  988.     fprintf(stderr, "Stack size increased to %d\n", yymaxdepth);
  989. #endif
  990.  
  991.       if (yyssp >= yyss + yymaxdepth - 1)
  992.     YYABORT;
  993.     }
  994.  
  995. #if YYDEBUG != 0
  996.   if (yydebug)
  997.     fprintf(stderr, "Entering state %d\n", yystate);
  998. #endif
  999.  
  1000. /* Do appropriate processing given the current state.  */
  1001. /* Read a lookahead token if we need one and don't already have one.  */
  1002. yyresume:
  1003.  
  1004.   /* First try to decide what to do without reference to lookahead token.  */
  1005.  
  1006.   yyn = yypact[yystate];
  1007.   if (yyn == YYFLAG)
  1008.     goto yydefault;
  1009.  
  1010.   /* Not known => get a lookahead token if don't already have one.  */
  1011.  
  1012.   /* yychar is either YYEMPTY or YYEOF
  1013.      or a valid token in external form.  */
  1014.  
  1015.   if (yychar == YYEMPTY)
  1016.     {
  1017. #if YYDEBUG != 0
  1018.       if (yydebug)
  1019.     fprintf(stderr, "Reading a token: ");
  1020. #endif
  1021.       yychar = YYLEX;
  1022.     }
  1023.  
  1024.   /* Convert token to internal form (in yychar1) for indexing tables with */
  1025.  
  1026.   if (yychar <= 0)        /* This means end of input. */
  1027.     {
  1028.       yychar1 = 0;
  1029.       yychar = YYEOF;        /* Don't call YYLEX any more */
  1030.  
  1031. #if YYDEBUG != 0
  1032.       if (yydebug)
  1033.     fprintf(stderr, "Now at end of input.\n");
  1034. #endif
  1035.     }
  1036.   else
  1037.     {
  1038.       yychar1 = YYTRANSLATE(yychar);
  1039.  
  1040. #if YYDEBUG != 0
  1041.       if (yydebug)
  1042.     fprintf(stderr, "Next token is %d (%s)\n", yychar, yytname[yychar1]);
  1043. #endif
  1044.     }
  1045.  
  1046.   yyn += yychar1;
  1047.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != yychar1)
  1048.     goto yydefault;
  1049.  
  1050.   yyn = yytable[yyn];
  1051.  
  1052.   /* yyn is what to do for this token type in this state.
  1053.      Negative => reduce, -yyn is rule number.
  1054.      Positive => shift, yyn is new state.
  1055.        New state is final state => don't bother to shift,
  1056.        just return success.
  1057.      0, or most negative number => error.  */
  1058.  
  1059.   if (yyn < 0)
  1060.     {
  1061.       if (yyn == YYFLAG)
  1062.     goto yyerrlab;
  1063.       yyn = -yyn;
  1064.       goto yyreduce;
  1065.     }
  1066.   else if (yyn == 0)
  1067.     goto yyerrlab;
  1068.  
  1069.   if (yyn == YYFINAL)
  1070.     YYACCEPT;
  1071.  
  1072.   /* Shift the lookahead token.  */
  1073.  
  1074. #if YYDEBUG != 0
  1075.   if (yydebug)
  1076.     fprintf(stderr, "Shifting token %d (%s), ", yychar, yytname[yychar1]);
  1077. #endif
  1078.  
  1079.   /* Discard the token being shifted unless it is eof.  */
  1080.   if (yychar != YYEOF)
  1081.     yychar = YYEMPTY;
  1082.  
  1083.   *++yyvsp = yylval;
  1084. #ifdef YYLSP_NEEDED
  1085.   *++yylsp = yylloc;
  1086. #endif
  1087.  
  1088.   /* count tokens shifted since error; after three, turn off error status.  */
  1089.   if (yyerrstatus) yyerrstatus--;
  1090.  
  1091.   yystate = yyn;
  1092.   goto yynewstate;
  1093.  
  1094. /* Do the default action for the current state.  */
  1095. yydefault:
  1096.  
  1097.   yyn = yydefact[yystate];
  1098.   if (yyn == 0)
  1099.     goto yyerrlab;
  1100.  
  1101. /* Do a reduction.  yyn is the number of a rule to reduce with.  */
  1102. yyreduce:
  1103.   yylen = yyr2[yyn];
  1104.   yyval = yyvsp[1-yylen]; /* implement default value of the action */
  1105.  
  1106. #if YYDEBUG != 0
  1107.   if (yydebug)
  1108.     {
  1109.       if (yylen == 1)
  1110.     fprintf (stderr, "Reducing 1 value via line %d, ",
  1111.          yyrline[yyn]);
  1112.       else
  1113.     fprintf (stderr, "Reducing %d values via line %d, ",
  1114.          yylen, yyrline[yyn]);
  1115.     }
  1116. #endif
  1117.  
  1118.  
  1119.   switch (yyn) {
  1120.  
  1121. case 1:
  1122. #line 137 "awk.y"
  1123. { expression_value = yyvsp[-1].nodeval; ;
  1124.     break;}
  1125. case 2:
  1126. #line 142 "awk.y"
  1127. { 
  1128.             if (yyvsp[0].nodeval != NULL)
  1129.                 yyval.nodeval = yyvsp[0].nodeval;
  1130.             else
  1131.                 yyval.nodeval = NULL;
  1132.             yyerrok;
  1133.         ;
  1134.     break;}
  1135. case 3:
  1136. #line 151 "awk.y"
  1137. {
  1138.             if (yyvsp[0].nodeval == NULL)
  1139.                 yyval.nodeval = yyvsp[-1].nodeval;
  1140.             else if (yyvsp[-1].nodeval == NULL)
  1141.                 yyval.nodeval = yyvsp[0].nodeval;
  1142.             else {
  1143.                 if (yyvsp[-1].nodeval->type != Node_rule_list)
  1144.                     yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_rule_list,
  1145.                         (NODE*)NULL);
  1146.                 yyval.nodeval = append_right (yyvsp[-1].nodeval,
  1147.                    node(yyvsp[0].nodeval, Node_rule_list,(NODE *) NULL));
  1148.             }
  1149.             yyerrok;
  1150.         ;
  1151.     break;}
  1152. case 4:
  1153. #line 165 "awk.y"
  1154. { yyval.nodeval = NULL; ;
  1155.     break;}
  1156. case 5:
  1157. #line 166 "awk.y"
  1158. { yyval.nodeval = NULL; ;
  1159.     break;}
  1160. case 6:
  1161. #line 170 "awk.y"
  1162. { io_allowed = 0; ;
  1163.     break;}
  1164. case 7:
  1165. #line 172 "awk.y"
  1166. {
  1167.         if (begin_block) {
  1168.             if (begin_block->type != Node_rule_list)
  1169.                 begin_block = node(begin_block, Node_rule_list,
  1170.                     (NODE *)NULL);
  1171.             append_right (begin_block, node(
  1172.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  1173.                 Node_rule_list, (NODE *)NULL) );
  1174.         } else
  1175.             begin_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
  1176.         yyval.nodeval = NULL;
  1177.         io_allowed = 1;
  1178.         yyerrok;
  1179.       ;
  1180.     break;}
  1181. case 8:
  1182. #line 186 "awk.y"
  1183. { io_allowed = 0; ;
  1184.     break;}
  1185. case 9:
  1186. #line 188 "awk.y"
  1187. {
  1188.         if (end_block) {
  1189.             if (end_block->type != Node_rule_list)
  1190.                 end_block = node(end_block, Node_rule_list,
  1191.                     (NODE *)NULL);
  1192.             append_right (end_block, node(
  1193.                 node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval),
  1194.                 Node_rule_list, (NODE *)NULL));
  1195.         } else
  1196.             end_block = node((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval);
  1197.         yyval.nodeval = NULL;
  1198.         io_allowed = 1;
  1199.         yyerrok;
  1200.       ;
  1201.     break;}
  1202. case 10:
  1203. #line 203 "awk.y"
  1204. {
  1205.         msg ("error near line %d: BEGIN blocks must have an action part", lineno);
  1206.         errcount++;
  1207.         yyerrok;
  1208.       ;
  1209.     break;}
  1210. case 11:
  1211. #line 209 "awk.y"
  1212. {
  1213.         msg ("error near line %d: END blocks must have an action part", lineno);
  1214.         errcount++;
  1215.         yyerrok;
  1216.       ;
  1217.     break;}
  1218. case 12:
  1219. #line 215 "awk.y"
  1220. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  1221.     break;}
  1222. case 13:
  1223. #line 217 "awk.y"
  1224. { yyval.nodeval = node ((NODE *)NULL, Node_rule_node, yyvsp[0].nodeval); yyerrok; ;
  1225.     break;}
  1226. case 14:
  1227. #line 219 "awk.y"
  1228. { if(yyvsp[-1].nodeval) yyval.nodeval = node (yyvsp[-1].nodeval, Node_rule_node, (NODE *)NULL); yyerrok; ;
  1229.     break;}
  1230. case 15:
  1231. #line 221 "awk.y"
  1232. {
  1233.             func_install(yyvsp[-1].nodeval, yyvsp[0].nodeval);
  1234.             yyval.nodeval = NULL;
  1235.             yyerrok;
  1236.         ;
  1237.     break;}
  1238. case 16:
  1239. #line 230 "awk.y"
  1240. { yyval.sval = yyvsp[0].sval; ;
  1241.     break;}
  1242. case 17:
  1243. #line 232 "awk.y"
  1244. { yyval.sval = yyvsp[0].sval; ;
  1245.     break;}
  1246. case 18:
  1247. #line 237 "awk.y"
  1248. {
  1249.             param_counter = 0;
  1250.         ;
  1251.     break;}
  1252. case 19:
  1253. #line 241 "awk.y"
  1254. {
  1255.             yyval.nodeval = append_right(make_param(yyvsp[-4].sval), yyvsp[-2].nodeval);
  1256.             can_return = 1;
  1257.         ;
  1258.     break;}
  1259. case 20:
  1260. #line 249 "awk.y"
  1261. {
  1262.         yyval.nodeval = yyvsp[-1].nodeval;
  1263.         can_return = 0;
  1264.       ;
  1265.     break;}
  1266. case 21:
  1267. #line 258 "awk.y"
  1268. { yyval.nodeval = yyvsp[0].nodeval; ;
  1269.     break;}
  1270. case 22:
  1271. #line 260 "awk.y"
  1272. { yyval.nodeval = mkrangenode ( node(yyvsp[-2].nodeval, Node_cond_pair, yyvsp[0].nodeval) ); ;
  1273.     break;}
  1274. case 23:
  1275. #line 269 "awk.y"
  1276. { ++want_regexp; ;
  1277.     break;}
  1278. case 24:
  1279. #line 271 "awk.y"
  1280. {
  1281.           want_regexp = 0;
  1282.           yyval.nodeval = node((NODE *)NULL,Node_regex,(NODE *)mk_re_parse(yyvsp[-1].sval, 0));
  1283.           yyval.nodeval -> re_case = 0;
  1284.           emalloc (yyval.nodeval -> re_text, char *, strlen(yyvsp[-1].sval)+1, "regexp");
  1285.           strcpy (yyval.nodeval -> re_text, yyvsp[-1].sval);
  1286.         ;
  1287.     break;}
  1288. case 25:
  1289. #line 282 "awk.y"
  1290. {
  1291.             /* empty actions are different from missing actions */
  1292.             yyval.nodeval = node ((NODE *) NULL, Node_illegal, (NODE *) NULL);
  1293.         ;
  1294.     break;}
  1295. case 26:
  1296. #line 287 "awk.y"
  1297. { yyval.nodeval = yyvsp[-2].nodeval ; ;
  1298.     break;}
  1299. case 27:
  1300. #line 292 "awk.y"
  1301. { yyval.nodeval = yyvsp[0].nodeval; ;
  1302.     break;}
  1303. case 28:
  1304. #line 294 "awk.y"
  1305. {
  1306.             if (yyvsp[-1].nodeval == NULL || yyvsp[-1].nodeval->type != Node_statement_list)
  1307.                 yyvsp[-1].nodeval = node(yyvsp[-1].nodeval, Node_statement_list,(NODE *)NULL);
  1308.                 yyval.nodeval = append_right(yyvsp[-1].nodeval,
  1309.                 node( yyvsp[0].nodeval, Node_statement_list, (NODE *)NULL));
  1310.                 yyerrok;
  1311.         ;
  1312.     break;}
  1313. case 29:
  1314. #line 302 "awk.y"
  1315. { yyval.nodeval = NULL; ;
  1316.     break;}
  1317. case 30:
  1318. #line 304 "awk.y"
  1319. { yyval.nodeval = NULL; ;
  1320.     break;}
  1321. case 31:
  1322. #line 309 "awk.y"
  1323. { yyval.nodetypeval = Node_illegal; ;
  1324.     break;}
  1325. case 32:
  1326. #line 311 "awk.y"
  1327. { yyval.nodetypeval = Node_illegal; ;
  1328.     break;}
  1329. case 33:
  1330. #line 317 "awk.y"
  1331. { yyval.nodeval = NULL; ;
  1332.     break;}
  1333. case 34:
  1334. #line 319 "awk.y"
  1335. { yyval.nodeval = NULL; ;
  1336.     break;}
  1337. case 35:
  1338. #line 321 "awk.y"
  1339. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1340.     break;}
  1341. case 36:
  1342. #line 323 "awk.y"
  1343. { yyval.nodeval = yyvsp[0].nodeval; ;
  1344.     break;}
  1345. case 37:
  1346. #line 325 "awk.y"
  1347. { yyval.nodeval = node (yyvsp[-3].nodeval, Node_K_while, yyvsp[0].nodeval); ;
  1348.     break;}
  1349. case 38:
  1350. #line 327 "awk.y"
  1351. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_K_do, yyvsp[-5].nodeval); ;
  1352.     break;}
  1353. case 39:
  1354. #line 329 "awk.y"
  1355. {
  1356.         yyval.nodeval = node (yyvsp[0].nodeval, Node_K_arrayfor, make_for_loop(variable(yyvsp[-5].sval),
  1357.             (NODE *)NULL, variable(yyvsp[-3].sval)));
  1358.       ;
  1359.     break;}
  1360. case 40:
  1361. #line 334 "awk.y"
  1362. {
  1363.         yyval.nodeval = node(yyvsp[0].nodeval, Node_K_for, (NODE *)make_for_loop(yyvsp[-7].nodeval, yyvsp[-5].nodeval, yyvsp[-3].nodeval));
  1364.       ;
  1365.     break;}
  1366. case 41:
  1367. #line 338 "awk.y"
  1368. {
  1369.         yyval.nodeval = node (yyvsp[0].nodeval, Node_K_for,
  1370.             (NODE *)make_for_loop(yyvsp[-6].nodeval, (NODE *)NULL, yyvsp[-3].nodeval));
  1371.       ;
  1372.     break;}
  1373. case 42:
  1374. #line 344 "awk.y"
  1375. { yyval.nodeval = node ((NODE *)NULL, Node_K_break, (NODE *)NULL); ;
  1376.     break;}
  1377. case 43:
  1378. #line 347 "awk.y"
  1379. { yyval.nodeval = node ((NODE *)NULL, Node_K_continue, (NODE *)NULL); ;
  1380.     break;}
  1381. case 44:
  1382. #line 349 "awk.y"
  1383. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-5].nodetypeval, yyvsp[-1].nodeval); ;
  1384.     break;}
  1385. case 45:
  1386. #line 351 "awk.y"
  1387. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-3].nodetypeval, yyvsp[-1].nodeval); ;
  1388.     break;}
  1389. case 46:
  1390. #line 353 "awk.y"
  1391. { if (! io_allowed) yyerror("next used in BEGIN or END action"); ;
  1392.     break;}
  1393. case 47:
  1394. #line 355 "awk.y"
  1395. { yyval.nodeval = node ((NODE *)NULL, Node_K_next, (NODE *)NULL); ;
  1396.     break;}
  1397. case 48:
  1398. #line 357 "awk.y"
  1399. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_exit, (NODE *)NULL); ;
  1400.     break;}
  1401. case 49:
  1402. #line 359 "awk.y"
  1403. { if (! can_return) yyerror("return used outside function context"); ;
  1404.     break;}
  1405. case 50:
  1406. #line 361 "awk.y"
  1407. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_return, (NODE *)NULL); ;
  1408.     break;}
  1409. case 51:
  1410. #line 363 "awk.y"
  1411. { yyval.nodeval = node (variable(yyvsp[-4].sval), Node_K_delete, yyvsp[-2].nodeval); ;
  1412.     break;}
  1413. case 52:
  1414. #line 365 "awk.y"
  1415. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1416.     break;}
  1417. case 53:
  1418. #line 370 "awk.y"
  1419. { yyval.nodetypeval = yyvsp[0].nodetypeval; ;
  1420.     break;}
  1421. case 54:
  1422. #line 372 "awk.y"
  1423. { yyval.nodetypeval = yyvsp[0].nodetypeval; ;
  1424.     break;}
  1425. case 55:
  1426. #line 377 "awk.y"
  1427. {
  1428.         yyval.nodeval = node(yyvsp[-3].nodeval, Node_K_if, 
  1429.             node(yyvsp[0].nodeval, Node_if_branches, (NODE *)NULL));
  1430.       ;
  1431.     break;}
  1432. case 56:
  1433. #line 383 "awk.y"
  1434. { yyval.nodeval = node (yyvsp[-6].nodeval, Node_K_if,
  1435.                 node (yyvsp[-3].nodeval, Node_if_branches, yyvsp[0].nodeval)); ;
  1436.     break;}
  1437. case 57:
  1438. #line 389 "awk.y"
  1439. { yyval.nodetypeval = 0; ; /* Node_illegal */
  1440.     break;}
  1441. case 58:
  1442. #line 391 "awk.y"
  1443. { yyval.nodetypeval = 0; ;
  1444.     break;}
  1445. case 59:
  1446. #line 396 "awk.y"
  1447. { yyval.nodetypeval = 0; ;
  1448.     break;}
  1449. case 60:
  1450. #line 398 "awk.y"
  1451. { yyval.nodetypeval = 0; ;
  1452.     break;}
  1453. case 61:
  1454. #line 403 "awk.y"
  1455. { yyval.nodeval = NULL; ;
  1456.     break;}
  1457. case 62:
  1458. #line 405 "awk.y"
  1459. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_input, (NODE *)NULL); ;
  1460.     break;}
  1461. case 63:
  1462. #line 410 "awk.y"
  1463. { yyval.nodeval = NULL; ;
  1464.     break;}
  1465. case 64:
  1466. #line 412 "awk.y"
  1467. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_output, (NODE *)NULL); ;
  1468.     break;}
  1469. case 65:
  1470. #line 414 "awk.y"
  1471. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_append, (NODE *)NULL); ;
  1472.     break;}
  1473. case 66:
  1474. #line 416 "awk.y"
  1475. { yyval.nodeval = node (yyvsp[0].nodeval, Node_redirect_pipe, (NODE *)NULL); ;
  1476.     break;}
  1477. case 67:
  1478. #line 421 "awk.y"
  1479. { yyval.nodeval = NULL; ;
  1480.     break;}
  1481. case 68:
  1482. #line 423 "awk.y"
  1483. { yyval.nodeval = yyvsp[0].nodeval; ;
  1484.     break;}
  1485. case 69:
  1486. #line 428 "awk.y"
  1487. { yyval.nodeval = make_param(yyvsp[0].sval); ;
  1488.     break;}
  1489. case 70:
  1490. #line 430 "awk.y"
  1491. { yyval.nodeval = append_right(yyvsp[-2].nodeval, make_param(yyvsp[0].sval)); yyerrok; ;
  1492.     break;}
  1493. case 71:
  1494. #line 432 "awk.y"
  1495. { yyval.nodeval = NULL; ;
  1496.     break;}
  1497. case 72:
  1498. #line 434 "awk.y"
  1499. { yyval.nodeval = NULL; ;
  1500.     break;}
  1501. case 73:
  1502. #line 436 "awk.y"
  1503. { yyval.nodeval = NULL; ;
  1504.     break;}
  1505. case 74:
  1506. #line 442 "awk.y"
  1507. { yyval.nodeval = NULL; ;
  1508.     break;}
  1509. case 75:
  1510. #line 444 "awk.y"
  1511. { yyval.nodeval = yyvsp[0].nodeval; ;
  1512.     break;}
  1513. case 76:
  1514. #line 449 "awk.y"
  1515. { yyval.nodeval = NULL; ;
  1516.     break;}
  1517. case 77:
  1518. #line 451 "awk.y"
  1519. { yyval.nodeval = yyvsp[0].nodeval; ;
  1520.     break;}
  1521. case 78:
  1522. #line 456 "awk.y"
  1523. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1524.     break;}
  1525. case 79:
  1526. #line 458 "awk.y"
  1527. {
  1528.         yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1529.             node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1530.         yyerrok;
  1531.       ;
  1532.     break;}
  1533. case 80:
  1534. #line 464 "awk.y"
  1535. { yyval.nodeval = NULL; ;
  1536.     break;}
  1537. case 81:
  1538. #line 466 "awk.y"
  1539. { yyval.nodeval = NULL; ;
  1540.     break;}
  1541. case 82:
  1542. #line 468 "awk.y"
  1543. { yyval.nodeval = NULL; ;
  1544.     break;}
  1545. case 83:
  1546. #line 470 "awk.y"
  1547. { yyval.nodeval = NULL; ;
  1548.     break;}
  1549. case 84:
  1550. #line 475 "awk.y"
  1551. { yyval.nodeval = NULL; ;
  1552.     break;}
  1553. case 85:
  1554. #line 477 "awk.y"
  1555. { yyval.nodeval = yyvsp[0].nodeval; ;
  1556.     break;}
  1557. case 86:
  1558. #line 482 "awk.y"
  1559. { yyval.nodeval = node (yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL); ;
  1560.     break;}
  1561. case 87:
  1562. #line 484 "awk.y"
  1563. {
  1564.             yyval.nodeval = append_right(yyvsp[-2].nodeval,
  1565.                 node( yyvsp[0].nodeval, Node_expression_list, (NODE *)NULL));
  1566.             yyerrok;
  1567.         ;
  1568.     break;}
  1569. case 88:
  1570. #line 490 "awk.y"
  1571. { yyval.nodeval = NULL; ;
  1572.     break;}
  1573. case 89:
  1574. #line 492 "awk.y"
  1575. { yyval.nodeval = NULL; ;
  1576.     break;}
  1577. case 90:
  1578. #line 494 "awk.y"
  1579. { yyval.nodeval = NULL; ;
  1580.     break;}
  1581. case 91:
  1582. #line 496 "awk.y"
  1583. { yyval.nodeval = NULL; ;
  1584.     break;}
  1585. case 92:
  1586. #line 501 "awk.y"
  1587. { want_assign = 0; ;
  1588.     break;}
  1589. case 93:
  1590. #line 503 "awk.y"
  1591. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval); ;
  1592.     break;}
  1593. case 94:
  1594. #line 505 "awk.y"
  1595. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-3].nodeval); ;
  1596.     break;}
  1597. case 95:
  1598. #line 507 "awk.y"
  1599. {
  1600.           yyval.nodeval = node (yyvsp[0].nodeval, Node_K_getline,
  1601.              node (yyvsp[-3].nodeval, Node_redirect_pipein, (NODE *)NULL));
  1602.         ;
  1603.     break;}
  1604. case 96:
  1605. #line 512 "awk.y"
  1606. {
  1607.           /* "too painful to do right" */
  1608.           /*
  1609.           if (! io_allowed && $3 == NULL)
  1610.             yyerror("non-redirected getline illegal inside BEGIN or END action");
  1611.           */
  1612.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1613.         ;
  1614.     break;}
  1615. case 97:
  1616. #line 521 "awk.y"
  1617. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1618.     break;}
  1619. case 98:
  1620. #line 523 "awk.y"
  1621. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1622.     break;}
  1623. case 99:
  1624. #line 525 "awk.y"
  1625. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1626.     break;}
  1627. case 100:
  1628. #line 527 "awk.y"
  1629. { yyval.nodeval = yyvsp[0].nodeval; ;
  1630.     break;}
  1631. case 101:
  1632. #line 529 "awk.y"
  1633. { yyval.nodeval = node((NODE *) NULL, Node_nomatch, yyvsp[0].nodeval); ;
  1634.     break;}
  1635. case 102:
  1636. #line 531 "awk.y"
  1637. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-2].nodeval); ;
  1638.     break;}
  1639. case 103:
  1640. #line 533 "awk.y"
  1641. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1642.     break;}
  1643. case 104:
  1644. #line 535 "awk.y"
  1645. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_less, yyvsp[0].nodeval); ;
  1646.     break;}
  1647. case 105:
  1648. #line 537 "awk.y"
  1649. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_greater, yyvsp[0].nodeval); ;
  1650.     break;}
  1651. case 106:
  1652. #line 539 "awk.y"
  1653. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
  1654.     break;}
  1655. case 107:
  1656. #line 541 "awk.y"
  1657. { yyval.nodeval = yyvsp[0].nodeval; ;
  1658.     break;}
  1659. case 108:
  1660. #line 543 "awk.y"
  1661. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1662.     break;}
  1663. case 109:
  1664. #line 548 "awk.y"
  1665. { want_assign = 0; ;
  1666.     break;}
  1667. case 110:
  1668. #line 550 "awk.y"
  1669. { yyval.nodeval = node (yyvsp[-3].nodeval, yyvsp[-2].nodetypeval, yyvsp[0].nodeval); ;
  1670.     break;}
  1671. case 111:
  1672. #line 552 "awk.y"
  1673. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_and, yyvsp[0].nodeval); ;
  1674.     break;}
  1675. case 112:
  1676. #line 554 "awk.y"
  1677. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_or, yyvsp[0].nodeval); ;
  1678.     break;}
  1679. case 113:
  1680. #line 556 "awk.y"
  1681. {
  1682.           /* "too painful to do right" */
  1683.           /*
  1684.           if (! io_allowed && $3 == NULL)
  1685.             yyerror("non-redirected getline illegal inside BEGIN or END action");
  1686.           */
  1687.           yyval.nodeval = node (yyvsp[-1].nodeval, Node_K_getline, yyvsp[0].nodeval);
  1688.         ;
  1689.     break;}
  1690. case 114:
  1691. #line 565 "awk.y"
  1692. { yyval.nodeval = yyvsp[0].nodeval; ;
  1693.     break;}
  1694. case 115:
  1695. #line 567 "awk.y"
  1696. { yyval.nodeval = node((NODE *) NULL, Node_nomatch, yyvsp[0].nodeval); ;
  1697.     break;}
  1698. case 116:
  1699. #line 569 "awk.y"
  1700. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1701.     break;}
  1702. case 117:
  1703. #line 571 "awk.y"
  1704. { yyval.nodeval = node (variable(yyvsp[0].sval), Node_in_array, yyvsp[-2].nodeval); ;
  1705.     break;}
  1706. case 118:
  1707. #line 573 "awk.y"
  1708. { yyval.nodeval = node (yyvsp[-2].nodeval, yyvsp[-1].nodetypeval, yyvsp[0].nodeval); ;
  1709.     break;}
  1710. case 119:
  1711. #line 575 "awk.y"
  1712. { yyval.nodeval = node(yyvsp[-4].nodeval, Node_cond_exp, node(yyvsp[-2].nodeval, Node_if_branches, yyvsp[0].nodeval));;
  1713.     break;}
  1714. case 120:
  1715. #line 577 "awk.y"
  1716. { yyval.nodeval = yyvsp[0].nodeval; ;
  1717.     break;}
  1718. case 121:
  1719. #line 579 "awk.y"
  1720. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_concat, yyvsp[0].nodeval); ;
  1721.     break;}
  1722. case 122:
  1723. #line 584 "awk.y"
  1724. { yyval.nodeval = node (yyvsp[0].nodeval, Node_not,(NODE *) NULL); ;
  1725.     break;}
  1726. case 123:
  1727. #line 586 "awk.y"
  1728. { yyval.nodeval = yyvsp[-1].nodeval; ;
  1729.     break;}
  1730. case 124:
  1731. #line 588 "awk.y"
  1732. { yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, yyvsp[-3].ptrval); ;
  1733.     break;}
  1734. case 125:
  1735. #line 590 "awk.y"
  1736. { yyval.nodeval = snode (yyvsp[-1].nodeval, Node_builtin, yyvsp[-3].ptrval); ;
  1737.     break;}
  1738. case 126:
  1739. #line 592 "awk.y"
  1740. { yyval.nodeval = snode ((NODE *)NULL, Node_builtin, yyvsp[0].ptrval); ;
  1741.     break;}
  1742. case 127:
  1743. #line 594 "awk.y"
  1744. {
  1745.         yyval.nodeval = node (yyvsp[-1].nodeval, Node_func_call, make_string(yyvsp[-3].sval, strlen(yyvsp[-3].sval)));
  1746.       ;
  1747.     break;}
  1748. case 128:
  1749. #line 598 "awk.y"
  1750. { yyval.nodeval = node (yyvsp[0].nodeval, Node_preincrement, (NODE *)NULL); ;
  1751.     break;}
  1752. case 129:
  1753. #line 600 "awk.y"
  1754. { yyval.nodeval = node (yyvsp[0].nodeval, Node_predecrement, (NODE *)NULL); ;
  1755.     break;}
  1756. case 130:
  1757. #line 602 "awk.y"
  1758. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postincrement, (NODE *)NULL); ;
  1759.     break;}
  1760. case 131:
  1761. #line 604 "awk.y"
  1762. { yyval.nodeval = node (yyvsp[-1].nodeval, Node_postdecrement, (NODE *)NULL); ;
  1763.     break;}
  1764. case 132:
  1765. #line 606 "awk.y"
  1766. { yyval.nodeval = yyvsp[0].nodeval; ;
  1767.     break;}
  1768. case 133:
  1769. #line 608 "awk.y"
  1770. { yyval.nodeval = yyvsp[0].nodeval; ;
  1771.     break;}
  1772. case 134:
  1773. #line 610 "awk.y"
  1774. { yyval.nodeval = yyvsp[0].nodeval; ;
  1775.     break;}
  1776. case 135:
  1777. #line 614 "awk.y"
  1778. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_exp, yyvsp[0].nodeval); ;
  1779.     break;}
  1780. case 136:
  1781. #line 616 "awk.y"
  1782. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_times, yyvsp[0].nodeval); ;
  1783.     break;}
  1784. case 137:
  1785. #line 618 "awk.y"
  1786. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_quotient, yyvsp[0].nodeval); ;
  1787.     break;}
  1788. case 138:
  1789. #line 620 "awk.y"
  1790. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_mod, yyvsp[0].nodeval); ;
  1791.     break;}
  1792. case 139:
  1793. #line 622 "awk.y"
  1794. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_plus, yyvsp[0].nodeval); ;
  1795.     break;}
  1796. case 140:
  1797. #line 624 "awk.y"
  1798. { yyval.nodeval = node (yyvsp[-2].nodeval, Node_minus, yyvsp[0].nodeval); ;
  1799.     break;}
  1800. case 141:
  1801. #line 626 "awk.y"
  1802. { yyval.nodeval = node (yyvsp[0].nodeval, Node_unary_minus, (NODE *)NULL); ;
  1803.     break;}
  1804. case 142:
  1805. #line 628 "awk.y"
  1806. { yyval.nodeval = yyvsp[0].nodeval; ;
  1807.     break;}
  1808. case 143:
  1809. #line 633 "awk.y"
  1810. { yyval.nodeval = NULL; ;
  1811.     break;}
  1812. case 144:
  1813. #line 635 "awk.y"
  1814. { yyval.nodeval = yyvsp[0].nodeval; ;
  1815.     break;}
  1816. case 145:
  1817. #line 640 "awk.y"
  1818. { want_assign = 1; yyval.nodeval = variable (yyvsp[0].sval); ;
  1819.     break;}
  1820. case 146:
  1821. #line 642 "awk.y"
  1822. { want_assign = 1; yyval.nodeval = node (variable(yyvsp[-3].sval), Node_subscript, yyvsp[-1].nodeval); ;
  1823.     break;}
  1824. case 147:
  1825. #line 644 "awk.y"
  1826. { want_assign = 1; yyval.nodeval = node (yyvsp[0].nodeval, Node_field_spec, (NODE *)NULL); ;
  1827.     break;}
  1828. case 149:
  1829. #line 652 "awk.y"
  1830. { yyerrok; ;
  1831.     break;}
  1832. case 150:
  1833. #line 656 "awk.y"
  1834. { yyval.nodetypeval = Node_illegal; yyerrok; ;
  1835.     break;}
  1836. case 153:
  1837. #line 665 "awk.y"
  1838. { yyerrok; ;
  1839.     break;}
  1840. case 154:
  1841. #line 668 "awk.y"
  1842. { yyval.nodetypeval = Node_illegal; yyerrok; ;
  1843.     break;}
  1844. }
  1845.    /* the action file gets copied in in place of this dollarsign */
  1846. #line 327 "bison.simple"
  1847.  
  1848.   yyvsp -= yylen;
  1849.   yyssp -= yylen;
  1850. #ifdef YYLSP_NEEDED
  1851.   yylsp -= yylen;
  1852. #endif
  1853.  
  1854. #if YYDEBUG != 0
  1855.   if (yydebug)
  1856.     {
  1857.       short *ssp1 = yyss - 1;
  1858.       fprintf (stderr, "state stack now");
  1859.       while (ssp1 != yyssp)
  1860.     fprintf (stderr, " %d", *++ssp1);
  1861.       fprintf (stderr, "\n");
  1862.     }
  1863. #endif
  1864.  
  1865.   *++yyvsp = yyval;
  1866.  
  1867. #ifdef YYLSP_NEEDED
  1868.   yylsp++;
  1869.   if (yylen == 0)
  1870.     {
  1871.       yylsp->first_line = yylloc.first_line;
  1872.       yylsp->first_column = yylloc.first_column;
  1873.       yylsp->last_line = (yylsp-1)->last_line;
  1874.       yylsp->last_column = (yylsp-1)->last_column;
  1875.       yylsp->text = 0;
  1876.     }
  1877.   else
  1878.     {
  1879.       yylsp->last_line = (yylsp+yylen-1)->last_line;
  1880.       yylsp->last_column = (yylsp+yylen-1)->last_column;
  1881.     }
  1882. #endif
  1883.  
  1884.   /* Now "shift" the result of the reduction.
  1885.      Determine what state that goes to,
  1886.      based on the state we popped back to
  1887.      and the rule number reduced by.  */
  1888.  
  1889.   yyn = yyr1[yyn];
  1890.  
  1891.   yystate = yypgoto[yyn - YYNTBASE] + *yyssp;
  1892.   if (yystate >= 0 && yystate <= YYLAST && yycheck[yystate] == *yyssp)
  1893.     yystate = yytable[yystate];
  1894.   else
  1895.     yystate = yydefgoto[yyn - YYNTBASE];
  1896.  
  1897.   goto yynewstate;
  1898.  
  1899. yyerrlab:   /* here on detecting error */
  1900.  
  1901.   if (! yyerrstatus)
  1902.     /* If not already recovering from an error, report this error.  */
  1903.     {
  1904.       ++yynerrs;
  1905.       yyerror("parse error");
  1906.     }
  1907.  
  1908.   if (yyerrstatus == 3)
  1909.     {
  1910.       /* if just tried and failed to reuse lookahead token after an error, discard it.  */
  1911.  
  1912.       /* return failure if at end of input */
  1913.       if (yychar == YYEOF)
  1914.     YYABORT;
  1915.  
  1916. #if YYDEBUG != 0
  1917.       if (yydebug)
  1918.     fprintf(stderr, "Discarding token %d (%s).\n", yychar, yytname[yychar1]);
  1919. #endif
  1920.  
  1921.       yychar = YYEMPTY;
  1922.     }
  1923.  
  1924.   /* Else will try to reuse lookahead token
  1925.      after shifting the error token.  */
  1926.  
  1927.   yyerrstatus = 3;        /* Each real token shifted decrements this */
  1928.  
  1929.   goto yyerrhandle;
  1930.  
  1931. yyerrdefault:  /* current state does not do anything special for the error token. */
  1932.  
  1933. #if 0
  1934.   /* This is wrong; only states that explicitly want error tokens
  1935.      should shift them.  */
  1936.   yyn = yydefact[yystate];  /* If its default is to accept any token, ok.  Otherwise pop it.*/
  1937.   if (yyn) goto yydefault;
  1938. #endif
  1939.  
  1940. yyerrpop:   /* pop the current state because it cannot handle the error token */
  1941.  
  1942.   if (yyssp == yyss) YYABORT;
  1943.   yyvsp--;
  1944.   yystate = *--yyssp;
  1945. #ifdef YYLSP_NEEDED
  1946.   yylsp--;
  1947. #endif
  1948.  
  1949. #if YYDEBUG != 0
  1950.   if (yydebug)
  1951.     {
  1952.       short *ssp1 = yyss - 1;
  1953.       fprintf (stderr, "Error: state stack now");
  1954.       while (ssp1 != yyssp)
  1955.     fprintf (stderr, " %d", *++ssp1);
  1956.       fprintf (stderr, "\n");
  1957.     }
  1958. #endif
  1959.  
  1960. yyerrhandle:
  1961.  
  1962.   yyn = yypact[yystate];
  1963.   if (yyn == YYFLAG)
  1964.     goto yyerrdefault;
  1965.  
  1966.   yyn += YYTERROR;
  1967.   if (yyn < 0 || yyn > YYLAST || yycheck[yyn] != YYTERROR)
  1968.     goto yyerrdefault;
  1969.  
  1970.   yyn = yytable[yyn];
  1971.   if (yyn < 0)
  1972.     {
  1973.       if (yyn == YYFLAG)
  1974.     goto yyerrpop;
  1975.       yyn = -yyn;
  1976.       goto yyreduce;
  1977.     }
  1978.   else if (yyn == 0)
  1979.     goto yyerrpop;
  1980.  
  1981.   if (yyn == YYFINAL)
  1982.     YYACCEPT;
  1983.  
  1984. #if YYDEBUG != 0
  1985.   if (yydebug)
  1986.     fprintf(stderr, "Shifting error token, ");
  1987. #endif
  1988.  
  1989.   *++yyvsp = yylval;
  1990. #ifdef YYLSP_NEEDED
  1991.   *++yylsp = yylloc;
  1992. #endif
  1993.  
  1994.   yystate = yyn;
  1995.   goto yynewstate;
  1996. }
  1997. #line 671 "awk.y"
  1998.  
  1999.  
  2000. struct token {
  2001.     char *operator;        /* text to match */
  2002.     NODETYPE value;        /* node type */
  2003.     short class;        /* lexical class */
  2004.     short nostrict;        /* ignore if in strict compatibility mode */
  2005.     NODE *(*ptr) ();    /* function that implements this keyword */
  2006. };
  2007.  
  2008. extern NODE
  2009.     *do_exp(NODE *tree),    
  2010.     *do_getline(NODE *tree),    
  2011.     *do_index(NODE *tree),    
  2012.     *do_length(NODE *tree),
  2013.     *do_sqrt(NODE *tree),    
  2014.     *do_log(NODE *tree),    
  2015.     *do_sprintf(NODE *tree),    
  2016.     *do_substr(NODE *tree),
  2017.     *do_split(NODE *tree),    
  2018.     *do_system(NODE *tree),    
  2019.     *do_int(NODE *tree),    
  2020.     *do_close(NODE *tree),
  2021.     *do_atan2(NODE *tree),    
  2022.     *do_sin(NODE *tree),    
  2023.     *do_cos(NODE *tree),    
  2024.     *do_rand(NODE *tree),
  2025.     *do_srand(NODE *tree),    
  2026.     *do_match(NODE *tree),    
  2027.     *do_tolower(NODE *tree),    
  2028.     *do_toupper(NODE *tree),
  2029.     *do_sub(NODE *tree),    
  2030.     *do_gsub(NODE *tree),
  2031.     /* added for Mac version */
  2032.     *do_lookup(NODE *tree),
  2033.     *do_sort(NODE *tree),
  2034.     *do_time(NODE *tree),
  2035.     *do_prompt(NODE *tree),
  2036.     *do_progress(NODE *tree),
  2037.     *do_hAWK(NODE *tree),
  2038.     *do_beep(NODE *tree),
  2039.     *do_copy(NODE *tree),
  2040.     *do_exists(NODE *tree),
  2041.     *do_fdate(NODE *tree),
  2042.     *do_fsize(NODE *tree),
  2043.     *do_getclip(NODE *tree),
  2044.     *do_putclip(NODE *tree),
  2045.     *do_list(NODE *tree),
  2046.     *do_nested(NODE *tree),
  2047.     *do_remove(NODE *tree),
  2048.     *do_rename(NODE *tree);
  2049.  
  2050. /* Special functions for debugging */
  2051. #ifdef DEBUG
  2052. NODE *do_prvars(), *do_bp();
  2053. #endif
  2054.  
  2055. /* Tokentab is sorted ascii ascending order, so it can be binary searched. */
  2056. /* In an application this is OK...
  2057. static struct token tokentab[] = {
  2058.     { "BEGIN",    Node_illegal,        LEX_BEGIN,    0,    0 },
  2059.     { "END",    Node_illegal,        LEX_END,    0,    0 },
  2060.     { "atan2",    Node_builtin,        LEX_BUILTIN,    0,    do_atan2 },
  2061.     { "beep",    Node_builtin,        LEX_BUILTIN,    0,    do_beep}, -- Mac version only --
  2062. #ifdef DEBUG
  2063.     { "bp",        Node_builtin,        LEX_BUILTIN,    0,    do_bp },
  2064. #endif
  2065.     { "break",    Node_K_break,        LEX_BREAK,    0,    0 },
  2066.     { "close",    Node_builtin,        LEX_BUILTIN,    0,    do_close },
  2067.     { "continue",    Node_K_continue,    LEX_CONTINUE,    0,    0 },
  2068.     { "copy",    Node_builtin,        LEX_BUILTIN,    0,    do_copy}, -- Mac version only --
  2069.     { "cos",    Node_builtin,        LEX_BUILTIN,    0,    do_cos },
  2070.     { "delete",    Node_K_delete,        LEX_DELETE,    0,    0 },
  2071.     { "do",        Node_K_do,        LEX_DO,        0,    0 },
  2072.     { "else",    Node_illegal,        LEX_ELSE,    0,    0 },
  2073.     { "exists",    Node_builtin,        LEX_BUILTIN,    0,    do_exists}, -- Mac version only --
  2074.     { "exit",    Node_K_exit,        LEX_EXIT,    0,    0 },
  2075.     { "exp",    Node_builtin,        LEX_BUILTIN,    0,    do_exp },
  2076.     { "fdate",    Node_builtin,        LEX_BUILTIN,    0,    do_fdate}, -- Mac version only --
  2077.     { "for",    Node_K_for,        LEX_FOR,    0,    0 },
  2078.     { "fsize",    Node_builtin,        LEX_BUILTIN,    0,    do_fsize}, -- Mac version only --
  2079.     { "func",    Node_K_function,    LEX_FUNCTION,    0,    0 },
  2080.     { "function",    Node_K_function,    LEX_FUNCTION,    0,    0 },
  2081.     { "getclip",    Node_builtin,        LEX_BUILTIN,    0,    do_getclip}, -- Mac version only --
  2082.     { "getline",    Node_K_getline,        LEX_GETLINE,    0,    0 },
  2083.     { "gsub",    Node_builtin,        LEX_BUILTIN,    0,    do_gsub },
  2084.     { "hAWK",    Node_builtin,        LEX_BUILTIN,    0,    do_hAWK}, -- Mac version only --
  2085.     { "if",        Node_K_if,        LEX_IF,        0,    0 },
  2086.     { "in",        Node_illegal,        LEX_IN,        0,    0 },
  2087.     { "index",    Node_builtin,        LEX_BUILTIN,    0,    do_index },
  2088.     { "int",    Node_builtin,        LEX_BUILTIN,    0,    do_int },
  2089.     { "length",    Node_builtin,        LEX_LENGTH,    0,    do_length },
  2090.     { "list",    Node_builtin,        LEX_BUILTIN,    0,    do_list}, -- Mac version only --
  2091.     { "log",    Node_builtin,        LEX_BUILTIN,    0,    do_log },
  2092.     { "lookup",    Node_builtin,        LEX_LENGTH,    0,    do_lookup }, -- Mac version only --
  2093.     { "match",    Node_builtin,        LEX_BUILTIN,    0,    do_match },
  2094.     { "nested",    Node_builtin,        LEX_BUILTIN,    0,    do_nested}, -- Mac version only --
  2095.     { "next",    Node_K_next,        LEX_NEXT,    0,    0 },
  2096.     { "print",    Node_K_print,        LEX_PRINT,    0,    0 },
  2097.     { "printf",    Node_K_printf,        LEX_PRINTF,    0,    0 },
  2098.     { "progress",Node_builtin,        LEX_BUILTIN,    0,    do_progress }, -- Mac version only --
  2099.     { "prompt",    Node_builtin,        LEX_BUILTIN,    0,    do_prompt }, -- Mac version only --
  2100. #ifdef DEBUG
  2101.     { "prvars",    Node_builtin,        LEX_BUILTIN,    0,    do_prvars },
  2102. #endif
  2103.     { "putclip",    Node_builtin,        LEX_BUILTIN,    0,    do_putclip}, -- Mac version only --
  2104.     { "rand",    Node_builtin,        LEX_BUILTIN,    0,    do_rand },
  2105.     { "remove",    Node_builtin,        LEX_BUILTIN,    0,    do_remove}, -- Mac version only --
  2106.     { "rename",    Node_builtin,        LEX_BUILTIN,    0,    do_rename}, -- Mac version only --
  2107.     { "return",    Node_K_return,        LEX_RETURN,    0,    0 },
  2108.     { "sin",    Node_builtin,        LEX_BUILTIN,    0,    do_sin },
  2109.     { "sort",    Node_builtin,        LEX_BUILTIN,    0,    do_sort}, -- Mac version only --
  2110.     { "split",    Node_builtin,        LEX_BUILTIN,    0,    do_split },
  2111.     { "sprintf",    Node_builtin,        LEX_BUILTIN,    0,    do_sprintf },
  2112.     { "sqrt",    Node_builtin,        LEX_BUILTIN,    0,    do_sqrt },
  2113.     { "srand",    Node_builtin,        LEX_BUILTIN,    0,    do_srand },
  2114.     { "sub",    Node_builtin,        LEX_BUILTIN,    0,    do_sub },
  2115.     { "substr",    Node_builtin,        LEX_BUILTIN,    0,    do_substr },
  2116.     { "system",    Node_builtin,        LEX_BUILTIN,    0,    do_system },
  2117.     { "time",    Node_builtin,        LEX_BUILTIN,    0,    do_time }, -- Mac version only --
  2118.     { "tolower",    Node_builtin,        LEX_BUILTIN,    0,    do_tolower },
  2119.     { "toupper",    Node_builtin,        LEX_BUILTIN,    0,    do_toupper },
  2120.     { "while",    Node_K_while,        LEX_WHILE,    0,    0 },
  2121. };
  2122. */
  2123. /* ...but in a code resource it has to be done the hard way...*/
  2124. #ifdef DEBUG
  2125. static struct token tokentab[59];
  2126. #else
  2127. static struct token tokentab[57];
  2128. #endif
  2129.  
  2130. static short statTokTabNum = 0;
  2131. static void InitOneToken(
  2132.             char *operator,        /* text to match */
  2133.             NODETYPE value,        /* node type */
  2134.             short class,            /* lexical class */
  2135.             short nostrict,        /* ignore if in strict compatibility mode */
  2136.             NODE *(*ptr) ()        /* function that implements this keyword */);
  2137. static void InitOneToken(
  2138.             char *operator,        /* text to match */
  2139.             NODETYPE value,        /* node type */
  2140.             short class,            /* lexical class */
  2141.             short nostrict,        /* ignore if in strict compatibility mode */
  2142.             NODE *(*ptr) ()        /* function that implements this keyword */)
  2143.     {
  2144.     tokentab[statTokTabNum].operator = operator;
  2145.     tokentab[statTokTabNum].value = value;
  2146.     tokentab[statTokTabNum].class = class;
  2147.     tokentab[statTokTabNum].nostrict = nostrict;
  2148.     tokentab[statTokTabNum].ptr = ptr;
  2149.     ++statTokTabNum;
  2150.     }
  2151.     
  2152. static void InitTokentab(void);
  2153. static void InitTokentab()
  2154.     {
  2155.     InitOneToken("BEGIN",    Node_illegal,        LEX_BEGIN,    0,    0);
  2156.     InitOneToken("END",        Node_illegal,        LEX_END,    0,    0 );
  2157.     InitOneToken("atan2",    Node_builtin,        LEX_BUILTIN,    0,    do_atan2 );
  2158.     InitOneToken("beep",    Node_builtin,        LEX_BUILTIN,    0,    do_beep ); /* Mac version only */
  2159. #ifdef DEBUG
  2160.     InitOneToken("bp",        Node_builtin,        LEX_BUILTIN,    0,    do_bp );
  2161. #endif
  2162.     InitOneToken("break",    Node_K_break,        LEX_BREAK,    0,    0 );
  2163.     InitOneToken("close",    Node_builtin,        LEX_BUILTIN,    0,    do_close );
  2164.     InitOneToken("continue",Node_K_continue,    LEX_CONTINUE,    0,    0 );
  2165.     InitOneToken("copy",    Node_builtin,        LEX_BUILTIN,    0,    do_copy ); /* Mac version only */
  2166.     InitOneToken("cos",        Node_builtin,        LEX_BUILTIN,    0,    do_cos );
  2167.     InitOneToken("delete",    Node_K_delete,        LEX_DELETE,    0,    0 );
  2168.     InitOneToken("do",        Node_K_do,            LEX_DO,        0,    0 );
  2169.     InitOneToken("else",    Node_illegal,        LEX_ELSE,    0,    0 );
  2170.     InitOneToken("exists",    Node_builtin,        LEX_BUILTIN,    0,    do_exists ); /* Mac version only */
  2171.     InitOneToken("exit",    Node_K_exit,        LEX_EXIT,    0,    0 );
  2172.     InitOneToken("exp",        Node_builtin,        LEX_BUILTIN,    0,    do_exp );
  2173.     InitOneToken("fdate",    Node_builtin,        LEX_BUILTIN,    0,    do_fdate ); /* Mac version only */
  2174.     InitOneToken("for",        Node_K_for,            LEX_FOR,    0,    0 );
  2175.     InitOneToken("fsize",    Node_builtin,        LEX_BUILTIN,    0,    do_fsize ); /* Mac version only */
  2176.     InitOneToken("func",    Node_K_function,    LEX_FUNCTION,    0,    0 );
  2177.     InitOneToken("function",Node_K_function,    LEX_FUNCTION,    0,    0 );
  2178.     InitOneToken("getclip",    Node_builtin,        LEX_BUILTIN,    0,    do_getclip ); /* Mac version only */
  2179.     InitOneToken("getline",    Node_K_getline,        LEX_GETLINE,    0,    0 );
  2180.     InitOneToken("gsub",    Node_builtin,        LEX_BUILTIN,    0,    do_gsub );
  2181.     InitOneToken("hAWK",    Node_builtin,        LEX_BUILTIN,    0,    do_hAWK ); /* Mac version only */
  2182.     InitOneToken("if",        Node_K_if,            LEX_IF,        0,    0 );
  2183.     InitOneToken("in",        Node_illegal,        LEX_IN,        0,    0 );
  2184.     InitOneToken("index",    Node_builtin,        LEX_BUILTIN,    0,    do_index );
  2185.     InitOneToken("int",        Node_builtin,        LEX_BUILTIN,    0,    do_int );
  2186.     InitOneToken("length",    Node_builtin,        LEX_LENGTH,    0,    do_length );
  2187.     InitOneToken("list",    Node_builtin,        LEX_BUILTIN,    0,    do_list ); /* Mac version only */
  2188.     InitOneToken("log",        Node_builtin,        LEX_BUILTIN,    0,    do_log );
  2189.     InitOneToken("lookup",    Node_builtin,        LEX_LENGTH,    0,    do_lookup ); /* Mac version only */
  2190.     InitOneToken("match",    Node_builtin,        LEX_BUILTIN,    0,    do_match );
  2191.     InitOneToken("nested",    Node_builtin,        LEX_BUILTIN,    0,    do_nested ); /* Mac version only */
  2192.     InitOneToken("next",    Node_K_next,        LEX_NEXT,    0,    0 );
  2193.     InitOneToken("print",    Node_K_print,        LEX_PRINT,    0,    0 );
  2194.     InitOneToken("printf",    Node_K_printf,        LEX_PRINTF,    0,    0 );
  2195.     InitOneToken("progress",Node_builtin,        LEX_BUILTIN,    0,    do_progress ); /* Mac only */
  2196.     InitOneToken("prompt",    Node_builtin,        LEX_BUILTIN,    0,    do_prompt ); /* Mac only */
  2197. #ifdef DEBUG
  2198.     InitOneToken("prvars",    Node_builtin,        LEX_BUILTIN,    0,    do_prvars );
  2199. #endif
  2200.     InitOneToken("putclip",    Node_builtin,        LEX_BUILTIN,    0,    do_putclip ); /* Mac version only */
  2201.     InitOneToken("rand",    Node_builtin,        LEX_BUILTIN,    0,    do_rand );
  2202.     InitOneToken("remove",    Node_builtin,        LEX_BUILTIN,    0,    do_remove ); /* Mac version only */
  2203.     InitOneToken("rename",    Node_builtin,        LEX_BUILTIN,    0,    do_rename ); /* Mac version only */
  2204.     InitOneToken("return",    Node_K_return,        LEX_RETURN,    0,    0 );
  2205.     InitOneToken("sin",        Node_builtin,        LEX_BUILTIN,    0,    do_sin );
  2206.     InitOneToken("sort",    Node_builtin,        LEX_BUILTIN,    0,    do_sort); /* Mac version only */
  2207.     InitOneToken("split",    Node_builtin,        LEX_BUILTIN,    0,    do_split );
  2208.     InitOneToken("sprintf",    Node_builtin,        LEX_BUILTIN,    0,    do_sprintf );
  2209.     InitOneToken("sqrt",    Node_builtin,        LEX_BUILTIN,    0,    do_sqrt );
  2210.     InitOneToken("srand",    Node_builtin,        LEX_BUILTIN,    0,    do_srand );
  2211.     InitOneToken("sub",        Node_builtin,        LEX_BUILTIN,    0,    do_sub );
  2212.     InitOneToken("substr",    Node_builtin,        LEX_BUILTIN,    0,    do_substr );
  2213.     InitOneToken("system",    Node_builtin,        LEX_BUILTIN,    0,    do_system );
  2214.     InitOneToken("time",    Node_builtin,        LEX_BUILTIN,    0,    do_time ); /* Mac version only */
  2215.     InitOneToken("tolower",    Node_builtin,        LEX_BUILTIN,    0,    do_tolower );
  2216.     InitOneToken("toupper",    Node_builtin,        LEX_BUILTIN,    0,    do_toupper );
  2217.     InitOneToken("while",    Node_K_while,        LEX_WHILE,    0,    0 );
  2218.     }
  2219.  
  2220. /* THINK C has a real simple line termination rule:
  2221. sometimes it's '\n', sometimes it's '\r'. This changes according to whether you're
  2222. doing ANSI, unix, or Mac-style file handling, and of course input is not necessarily
  2223. the same as output....Anyone wanna write a thesis about this? */
  2224. #define CR '\n'
  2225.  
  2226.  
  2227. static char *token_start;
  2228.  
  2229. /* VARARGS0 */
  2230. static void yyerror(char *va_alist, ...)
  2231. {
  2232.     va_list args;
  2233.     char *mesg;
  2234.     register char *ptr, *beg;
  2235.     char *scan;
  2236.     char    oof[14];
  2237.  
  2238.     errcount++;
  2239.     va_start(args, va_alist);
  2240.     mesg = va_arg(args, char *);
  2241.     va_end(args);
  2242.     /* Find the current line in the input file */
  2243.     if (! lexptr) {
  2244.         short    i = 0;
  2245.         oof[i++] = '(';
  2246.         oof[i++] = 'E';
  2247.         oof[i++] = 'N';
  2248.         oof[i++] = 'D';
  2249.         oof[i++] = ' ';
  2250.         oof[i++] = 'O';
  2251.         oof[i++] = 'F';
  2252.         oof[i++] = ' ';
  2253.         oof[i++] = 'F';
  2254.         oof[i++] = 'I';
  2255.         oof[i++] = 'L';
  2256.         oof[i++] = 'E';
  2257.         oof[i++] = ')';
  2258.         beg = oof;
  2259.         ptr = beg + 13;
  2260.     } else {
  2261.         if (*lexptr == CR && lexptr != lexptr_begin)
  2262.             --lexptr;
  2263.         for (beg = lexptr; beg != lexptr_begin && *beg != CR; --beg)
  2264.             ;
  2265.         /* NL isn't guaranteed */
  2266.         for (ptr = lexptr; *ptr && *ptr != CR; ptr++)
  2267.             ;
  2268.         if (beg != lexptr_begin)
  2269.             beg++;
  2270.         if (ptr <= beg+1)
  2271.             for (++ptr; *ptr && *ptr != CR; ptr++)
  2272.                 ;
  2273.     }
  2274.     msg("syntax error near line %d:\n%.*s", lineno, (short)(ptr - beg), beg);
  2275.     scan = beg;
  2276.     while (scan < token_start)
  2277.         if (*scan++ == '\t')
  2278.             putc('\t', stderr);
  2279.         else
  2280.             putc(' ', stderr);
  2281.     putc('^', stderr);
  2282.     putc(' ', stderr);
  2283.     //vfprintf(stderr, mesg, args);
  2284.     vfprintf(stderr, va_alist, args);
  2285.     putc('\n', stderr);
  2286.     exit(1);
  2287. }
  2288.  
  2289.  
  2290.  
  2291. /*
  2292.  * Parse a C escape sequence.  STRING_PTR points to a variable containing a
  2293.  * pointer to the string to parse.  That pointer is updated past the
  2294.  * characters we use.  The value of the escape sequence is returned. 
  2295.  *
  2296.  * A negative value means the sequence \ newline was seen, which is supposed to
  2297.  * be equivalent to nothing at all. 
  2298.  *
  2299.  * If \ is followed by a null character, we return a negative value and leave
  2300.  * the string pointer pointing at the null character. 
  2301.  *
  2302.  * If \ is followed by 000, we return 0 and leave the string pointer after the
  2303.  * zeros.  A value of 0 does not mean end of string.  
  2304.  
  2305. Mac revision: for convenience when tagging subgroups, the sequences
  2306. \1 through \9 are left intact (provided another digit doesn't follow).
  2307. Also, the special combinations \w, \W, \<, \>, \b, \B, which are
  2308. very handy in regular expressions for matching word boundaries etc
  2309. are left intact.
  2310. See group_tag_etc() in NODE.C.
  2311.  */
  2312.  
  2313. short parse_escape(char **string_ptr)
  2314. {
  2315.     register short c = *(*string_ptr)++;
  2316.     register short i;
  2317.     register short count = 0;
  2318.  
  2319.     switch (c) {
  2320.     case 'a':
  2321.         return BELL;
  2322.     case 'b':
  2323.         return '\b';
  2324.     case 'f':
  2325.         return '\f';
  2326.     case 'n':
  2327.         return '\n';
  2328.     case 'r':
  2329.         return '\r';
  2330.     case 't':
  2331.         return '\t';
  2332.     case 'v':
  2333.         return '\v';
  2334.     case CR:
  2335.         return -2;
  2336.     case 0:
  2337.         (*string_ptr)--;
  2338.         return -1;
  2339.     case '0':
  2340.     case '1':
  2341.     case '2':
  2342.     case '3':
  2343.     case '4':
  2344.     case '5':
  2345.     case '6':
  2346.     case '7':
  2347.         i = c - '0';
  2348.         count = 0;
  2349.         while (++count < 3) {
  2350.             if ((c = *(*string_ptr)++) >= '0' && c <= '7') {
  2351.                 i *= 8;
  2352.                 i += c - '0';
  2353.             } else {
  2354.                 (*string_ptr)--;
  2355.                 break;
  2356.             }
  2357.         }
  2358.         return i;
  2359.     case 'x':
  2360.         i = 0;
  2361.         while (1) {
  2362.             if (isxdigit((c = *(*string_ptr)++))) {
  2363.                 if (isdigit(c))
  2364.                     i += c - '0';
  2365.                 else if (isupper(c))
  2366.                     i += c - 'A' + 10;
  2367.                 else
  2368.                     i += c - 'a' + 10;
  2369.             } else {
  2370.                 (*string_ptr)--;
  2371.                 break;
  2372.             }
  2373.         }
  2374.         return i;
  2375.     default:
  2376.         return c;
  2377.     }
  2378. }
  2379.  
  2380.  
  2381. /*
  2382.  * Read the input and turn it into tokens. Input is now read from a file
  2383.  * instead of from malloc'ed memory. The main program takes a program
  2384.  * passed as a command line argument and writes it to a temp file. Otherwise
  2385.  * the file name is made available in an external variable.
  2386.  */
  2387. /* Statics moved outside yylex() for the Mac version
  2388. so they can be reinitialized easily. */
  2389. static did_newline = 0;    /* the grammar insists that actions end
  2390.              * with newlines.  This was easier than
  2391.              * hacking the grammar. */
  2392. static short file_opened = 0;
  2393. static FILE *fin;
  2394. static char cbuf[BUFSIZ];
  2395. static short yylex()
  2396. {
  2397.     register short c;
  2398.     register short namelen;
  2399.     register char *tokstart;
  2400.     char *tokkey;
  2401.     
  2402.     short seen_e = 0;        /* These are for numbers */
  2403.     short seen_point = 0;
  2404.     short esc_seen;
  2405.     extern char **sourcefile;
  2406.     extern short tempsource, numfiles;
  2407.     
  2408.     
  2409.     
  2410.     short low, mid, high;
  2411. #ifdef DEBUG
  2412.     extern short debugging;
  2413. #endif
  2414.  
  2415.     if (! file_opened) {
  2416.         file_opened = 1;
  2417. #ifdef DEBUG
  2418.         if (debugging) {
  2419.             short i;
  2420.  
  2421.             for (i = 0; i <= numfiles; i++)
  2422.                 fprintf (stderr, "sourcefile[%d] = %s\n", i,
  2423.                         sourcefile[i]);
  2424.         }
  2425. #endif
  2426.     nextfile:
  2427.         if ((fin = pathopen (sourcefile[++curinfile])) == NULL)
  2428.             fatal("cannot open `%s' for reading (%s)",
  2429.                 sourcefile[curinfile],
  2430.                 strerror(errno));
  2431.         *(lexptr = cbuf) = '\0';
  2432.         /*
  2433.          * immediately unlink the tempfile so that it will
  2434.          * go away cleanly if we bomb.
  2435.          */
  2436.         if (tempsource && curinfile == 0)
  2437.             (void) remove (sourcefile[curinfile]);
  2438.     }
  2439.  
  2440. retry:
  2441.     if (! *lexptr)
  2442.         if (fgets (cbuf, sizeof cbuf, fin) == NULL) {
  2443.             if (fin != NULL)
  2444.                 fclose (fin);    /* be neat and clean */
  2445.             if (curinfile < numfiles)
  2446.                 goto nextfile;
  2447.             return 0;
  2448.         } else
  2449.             lexptr = lexptr_begin = cbuf;
  2450.  
  2451.     if (want_regexp) {
  2452.         short in_brack = 0;
  2453.  
  2454.         want_regexp = 0;
  2455.         token_start = tokstart = lexptr;
  2456.         while (c = *lexptr++) {
  2457.             switch (c) {
  2458.             case '[':
  2459.                 in_brack = 1;
  2460.                 break;
  2461.             case ']':
  2462.                 in_brack = 0;
  2463.                 break;
  2464.             case '\\':
  2465.                 if (*lexptr++ == '\0') {
  2466.                     yyerror("unterminated regexp ends with \\");
  2467.                     return ERROR;
  2468.                 } else if (lexptr[-1] == CR)
  2469.                     goto retry;
  2470.                 break;
  2471.             case '/':    /* end of the regexp */
  2472.                 if (in_brack)
  2473.                     break;
  2474.  
  2475.                 lexptr--;
  2476.                 yylval.sval = tokstart;
  2477.                 return REGEXP;
  2478.             case CR:
  2479.                 lineno++;
  2480.             case '\0':
  2481.                 lexptr--;    /* so error messages work */
  2482.                 yyerror("unterminated regexp");
  2483.                 return ERROR;
  2484.             }
  2485.         }
  2486.     }
  2487.  
  2488.     if (*lexptr == CR) {
  2489.         lexptr++;
  2490.         lineno++;
  2491.         return NEWLINE;
  2492.     }
  2493.  
  2494.     while (*lexptr == ' ' || *lexptr == '\t')
  2495.         lexptr++;
  2496.  
  2497.     token_start = tokstart = lexptr;
  2498.  
  2499.     switch (c = *lexptr++) {
  2500.     case 0:
  2501.         return 0;
  2502.  
  2503.     case CR:
  2504.         lineno++;
  2505.         return NEWLINE;
  2506.  
  2507.     case '#':        /* it's a comment */
  2508.         while (*lexptr != CR && *lexptr != '\0')
  2509.             lexptr++;
  2510.         goto retry;
  2511.  
  2512.     case '\\':
  2513.         if (*lexptr == CR) {
  2514.             lineno++;
  2515.             lexptr++;
  2516.             goto retry;
  2517.         } else
  2518.             break;
  2519.     case ')':
  2520.     case ']':
  2521.     case '(':    
  2522.     case '[':
  2523.     case '$':
  2524.     case ';':
  2525.     case ':':
  2526.     case '?':
  2527.  
  2528.         /*
  2529.          * set node type to ILLEGAL because the action should set it
  2530.          * to the right thing 
  2531.          */
  2532.         yylval.nodetypeval = Node_illegal;
  2533.         return c;
  2534.  
  2535.     case '{':
  2536.     case ',':
  2537.         yylval.nodetypeval = Node_illegal;
  2538.         return c;
  2539.  
  2540.     case '*':
  2541.         if (*lexptr == '=') {
  2542.             yylval.nodetypeval = Node_assign_times;
  2543.             lexptr++;
  2544.             return ASSIGNOP;
  2545.         } else if (*lexptr == '*') {    /* make ** and **= aliases
  2546.                          * for ^ and ^= */
  2547.             if (lexptr[1] == '=') {
  2548.                 yylval.nodetypeval = Node_assign_exp;
  2549.                 lexptr += 2;
  2550.                 return ASSIGNOP;
  2551.             } else {
  2552.                 yylval.nodetypeval = Node_illegal;
  2553.                 lexptr++;
  2554.                 return '^';
  2555.             }
  2556.         }
  2557.         yylval.nodetypeval = Node_illegal;
  2558.         return c;
  2559.  
  2560.     case '/':
  2561.         if (want_assign && *lexptr == '=') {
  2562.             yylval.nodetypeval = Node_assign_quotient;
  2563.             lexptr++;
  2564.             return ASSIGNOP;
  2565.         }
  2566.         yylval.nodetypeval = Node_illegal;
  2567.         return c;
  2568.  
  2569.     case '%':
  2570.         if (*lexptr == '=') {
  2571.             yylval.nodetypeval = Node_assign_mod;
  2572.             lexptr++;
  2573.             return ASSIGNOP;
  2574.         }
  2575.         yylval.nodetypeval = Node_illegal;
  2576.         return c;
  2577.  
  2578.     case '^':
  2579.         if (*lexptr == '=') {
  2580.             yylval.nodetypeval = Node_assign_exp;
  2581.             lexptr++;
  2582.             return ASSIGNOP;
  2583.         }
  2584.         yylval.nodetypeval = Node_illegal;
  2585.         return c;
  2586.  
  2587.     case '+':
  2588.         if (*lexptr == '=') {
  2589.             yylval.nodetypeval = Node_assign_plus;
  2590.             lexptr++;
  2591.             return ASSIGNOP;
  2592.         }
  2593.         if (*lexptr == '+') {
  2594.             yylval.nodetypeval = Node_illegal;
  2595.             lexptr++;
  2596.             return INCREMENT;
  2597.         }
  2598.         yylval.nodetypeval = Node_illegal;
  2599.         return c;
  2600.  
  2601.     case '!':
  2602.         if (*lexptr == '=') {
  2603.             yylval.nodetypeval = Node_notequal;
  2604.             lexptr++;
  2605.             return RELOP;
  2606.         }
  2607.         if (*lexptr == '~') {
  2608.             yylval.nodetypeval = Node_nomatch;
  2609.             lexptr++;
  2610.             return MATCHOP;
  2611.         }
  2612.         yylval.nodetypeval = Node_illegal;
  2613.         return c;
  2614.  
  2615.     case '<':
  2616.         if (*lexptr == '=') {
  2617.             yylval.nodetypeval = Node_leq;
  2618.             lexptr++;
  2619.             return RELOP;
  2620.         }
  2621.         yylval.nodetypeval = Node_less;
  2622.         return c;
  2623.  
  2624.     case '=':
  2625.         if (*lexptr == '=') {
  2626.             yylval.nodetypeval = Node_equal;
  2627.             lexptr++;
  2628.             return RELOP;
  2629.         }
  2630.         yylval.nodetypeval = Node_assign;
  2631.         return ASSIGNOP;
  2632.  
  2633.     case '>':
  2634.         if (*lexptr == '=') {
  2635.             yylval.nodetypeval = Node_geq;
  2636.             lexptr++;
  2637.             return RELOP;
  2638.         } else if (*lexptr == '>') {
  2639.             yylval.nodetypeval = Node_redirect_append;
  2640.             lexptr++;
  2641.             return APPEND_OP;
  2642.         }
  2643.         yylval.nodetypeval = Node_greater;
  2644.         return c;
  2645.  
  2646.     case '~':
  2647.         yylval.nodetypeval = Node_match;
  2648.         return MATCHOP;
  2649.  
  2650.     case '}':
  2651.         /*
  2652.          * Added did newline stuff.  Easier than
  2653.          * hacking the grammar
  2654.          */
  2655.         if (did_newline) {
  2656.             did_newline = 0;
  2657.             return c;
  2658.         }
  2659.         did_newline++;
  2660.         --lexptr;
  2661.         return NEWLINE;
  2662.  
  2663.     case '"':
  2664.         esc_seen = 0;
  2665.         while (*lexptr != '\0') {
  2666.             switch (*lexptr++) {
  2667.             case '\\':
  2668.                 esc_seen = 1;
  2669.                 if (*lexptr == CR)
  2670.                     yyerror("newline in string");
  2671.                 if (*lexptr++ != '\0')
  2672.                     break;
  2673.                 /* fall through */
  2674.             case CR:
  2675.                 lexptr--;
  2676.                 yyerror("unterminated string");
  2677.                 return ERROR;
  2678.             case '"':
  2679.                 yylval.nodeval = make_str_node(tokstart + 1,
  2680.                         (short)(lexptr-tokstart-2), esc_seen);
  2681.                 yylval.nodeval->flags |= PERM;
  2682.                 return YSTRING;
  2683.             }
  2684.         }
  2685.         return ERROR;
  2686.  
  2687.     case '-':
  2688.         if (*lexptr == '=') {
  2689.             yylval.nodetypeval = Node_assign_minus;
  2690.             lexptr++;
  2691.             return ASSIGNOP;
  2692.         }
  2693.         if (*lexptr == '-') {
  2694.             yylval.nodetypeval = Node_illegal;
  2695.             lexptr++;
  2696.             return DECREMENT;
  2697.         }
  2698.         yylval.nodetypeval = Node_illegal;
  2699.         return c;
  2700.  
  2701.     case '0':
  2702.     case '1':
  2703.     case '2':
  2704.     case '3':
  2705.     case '4':
  2706.     case '5':
  2707.     case '6':
  2708.     case '7':
  2709.     case '8':
  2710.     case '9':
  2711.     case '.':
  2712.         /* It's a number */
  2713.         for (namelen = 0; (c = tokstart[namelen]) != '\0'; namelen++) {
  2714.             switch (c) {
  2715.             case '.':
  2716.                 if (seen_point)
  2717.                     goto got_number;
  2718.                 ++seen_point;
  2719.                 break;
  2720.             case 'e':
  2721.             case 'E':
  2722.                 if (seen_e)
  2723.                     goto got_number;
  2724.                 ++seen_e;
  2725.                 if (tokstart[namelen + 1] == '-' ||
  2726.                     tokstart[namelen + 1] == '+')
  2727.                     namelen++;
  2728.                 break;
  2729.             case '0':
  2730.             case '1':
  2731.             case '2':
  2732.             case '3':
  2733.             case '4':
  2734.             case '5':
  2735.             case '6':
  2736.             case '7':
  2737.             case '8':
  2738.             case '9':
  2739.                 break;
  2740.             default:
  2741.                 goto got_number;
  2742.             }
  2743.         }
  2744.  
  2745. got_number:
  2746.         lexptr = tokstart + namelen;
  2747.         /*
  2748.         yylval.nodeval = make_string(tokstart, namelen);
  2749.         (void) force_number(yylval.nodeval);
  2750.         */
  2751.         yylval.nodeval = make_number(atof(tokstart));
  2752.         yylval.nodeval->flags |= PERM;
  2753.         return NUMBER;
  2754.  
  2755.     case '&':
  2756.         if (*lexptr == '&') {
  2757.             yylval.nodetypeval = Node_and;
  2758.             while (c = *++lexptr) {
  2759.                 if (c == '#')
  2760.                     while ((c = *++lexptr) != CR
  2761.                            && c != '\0')
  2762.                         ;
  2763.                 if (c == CR)
  2764.                     lineno++;
  2765.                 else if (! isspace(c))
  2766.                     break;
  2767.             }
  2768.             return LEX_AND;
  2769.         }
  2770.         return ERROR;
  2771.  
  2772.     case '|':
  2773.         if (*lexptr == '|') {
  2774.             yylval.nodetypeval = Node_or;
  2775.             while (c = *++lexptr) {
  2776.                 if (c == '#')
  2777.                     while ((c = *++lexptr) != CR
  2778.                            && c != '\0')
  2779.                         ;
  2780.                 if (c == CR)
  2781.                     lineno++;
  2782.                 else if (! isspace(c))
  2783.                     break;
  2784.             }
  2785.             return LEX_OR;
  2786.         }
  2787.         yylval.nodetypeval = Node_illegal;
  2788.         return c;
  2789.     }
  2790.  
  2791.     if (c != '_' && ! isalpha(c)) {
  2792.         yyerror("Invalid char '%c' in expression\n", c);
  2793.         return ERROR;
  2794.     }
  2795.  
  2796.     /* it's some type of name-type-thing.  Find its length */
  2797.     for (namelen = 0; is_identchar(tokstart[namelen]); namelen++)
  2798.         /* null */ ;
  2799.     emalloc(tokkey, char *, namelen+1, "yylex");
  2800.     memcpy(tokkey, tokstart, namelen);
  2801.     tokkey[namelen] = '\0';
  2802.  
  2803.     /* See if it is a special token.  */
  2804.     low = 0;
  2805.     high = (sizeof (tokentab) / sizeof (tokentab[0])) - 1;
  2806.     while (low <= high) {
  2807.         short i, c;
  2808.  
  2809.         mid = (low + high) / 2;
  2810.         c = *tokstart - tokentab[mid].operator[0];
  2811.         i = c ? c : strcmp (tokkey, tokentab[mid].operator);
  2812.  
  2813.         if (i < 0) {        /* token < mid */
  2814.             high = mid - 1;
  2815.         } else if (i > 0) {    /* token > mid */
  2816.             low = mid + 1;
  2817.         } else {
  2818.             lexptr = tokstart + namelen;
  2819.             if (strict && tokentab[mid].nostrict)
  2820.                 break;
  2821.             if (tokentab[mid].class == LEX_BUILTIN
  2822.                 || tokentab[mid].class == LEX_LENGTH)
  2823.                 yylval.ptrval = tokentab[mid].ptr;
  2824.             else
  2825.                 yylval.nodetypeval = tokentab[mid].value;
  2826.             return tokentab[mid].class;
  2827.         }
  2828.     }
  2829.  
  2830.     /* It's a name.  See how long it is.  */
  2831.     yylval.sval = tokkey;
  2832.     lexptr = tokstart + namelen;
  2833.     if (*lexptr == '(')
  2834.         return FUNC_CALL;
  2835.     else
  2836.         return NAME;
  2837. }
  2838.  
  2839. #ifndef DEFPATH
  2840. #ifdef MSDOS
  2841. #define DEFPATH    "."
  2842. #define ENVSEP    ';'
  2843. #else
  2844. #define DEFPATH    ".:/usr/lib/awk:/usr/local/lib/awk"
  2845. #define ENVSEP    ':'
  2846. #endif
  2847. #endif
  2848.  
  2849. /* First Mac version: have strict == 1 so pathopen just opens the file
  2850. assuming a full path name. Later, have it handle
  2851. ::::vol:dirID:filename. Even later, have it handle unix slashes.
  2852. */
  2853. static FILE *pathopen(char *file)
  2854. {
  2855.     static char *savepath/* = DEFPATH*/;
  2856.     static short first = 1;
  2857.     char *awkpath, *cp;
  2858.     char trypath[BUFSIZ];
  2859.     FILE *fp;
  2860. #ifdef DEBUG
  2861.     extern short debugging;
  2862. #endif
  2863.     short fd;
  2864.  
  2865.     if (strcmp (file, "-") == 0)
  2866.         return (stdin);
  2867.  
  2868.     if (strict)
  2869.         return (fopen (file, "r"));
  2870.     // mac version, that's all folks.
  2871.     return NULL;
  2872. }
  2873.  
  2874. static NODE *node_common(NODETYPE op)
  2875. {
  2876.     register NODE *r;
  2877.     extern short numfiles;
  2878.     extern short tempsource;
  2879.     extern char **sourcefile;
  2880.  
  2881.     r = newnode(op);
  2882.     r->source_line = lineno;
  2883.     if (numfiles > -1 && ! tempsource)
  2884.         r->source_file = sourcefile[curinfile];
  2885.     else
  2886.         r->source_file = NULL;
  2887.     return r;
  2888. }
  2889.  
  2890. /*
  2891.  * This allocates a node with defined lnode and rnode. 
  2892.  * This should only be used by yyparse+co while reading in the program 
  2893.  */
  2894. NODE *node(NODE *left, NODETYPE op, NODE *right)
  2895. {
  2896.     register NODE *r;
  2897.  
  2898.     r = node_common(op);
  2899.     r->lnode = left;
  2900.     r->rnode = right;
  2901.     return r;
  2902. }
  2903.  
  2904. /*
  2905.  * This allocates a node with defined subnode and proc
  2906.  * Otherwise like node()
  2907.  */
  2908. static NODE *snode(NODE *subn, NODETYPE op, NODE *(*procp) ())
  2909. {
  2910.     register NODE *r;
  2911.  
  2912.     r = node_common(op);
  2913.     r->subnode = subn;
  2914.     r->proc = procp;
  2915.     return r;
  2916. }
  2917.  
  2918. /*
  2919.  * This allocates a Node_line_range node with defined condpair and
  2920.  * zeroes the trigger word to avoid the temptation of assuming that calling
  2921.  * 'node( foo, Node_line_range, 0)' will properly initialize 'triggered'. 
  2922.  */
  2923. /* Otherwise like node() */
  2924. static NODE *mkrangenode(NODE *cpair)
  2925. {
  2926.     register NODE *r;
  2927.  
  2928.     r = newnode(Node_line_range);
  2929.     r->condpair = cpair;
  2930.     r->triggered = 0;
  2931.     return r;
  2932. }
  2933.  
  2934. /* Build a for loop */
  2935. static NODE *make_for_loop(NODE *init, NODE *cond, NODE *incr)
  2936. {
  2937.     register FOR_LOOP_HEADER *r;
  2938.     NODE *n;
  2939.  
  2940.     emalloc(r, FOR_LOOP_HEADER *, sizeof(FOR_LOOP_HEADER), "make_for_loop");
  2941.     n = newnode(Node_illegal);
  2942.     r->init = init;
  2943.     r->cond = cond;
  2944.     r->incr = incr;
  2945.     n->sub.nodep.r.hd = r;
  2946.     return n;
  2947. }
  2948.  
  2949. /*
  2950.  * Install a name in the hash table specified, even if it is already there.
  2951.  * Name stops with first non alphanumeric. Caller must check against
  2952.  * redefinition if that is desired. 
  2953.  */
  2954. NODE *install(NODE **table, char *name, NODE *value)
  2955. {
  2956.     register NODE *hp;
  2957.     register short len, bucket;
  2958.     register char *p;
  2959.  
  2960.     len = 0;
  2961.     p = name;
  2962.     while (is_identchar(*p))
  2963.         p++;
  2964.     len = p - name;
  2965.  
  2966.     hp = newnode(Node_hashnode);
  2967.     bucket = hashf(name, len, HASHSIZE);
  2968.     hp->hnext = table[bucket];
  2969.     table[bucket] = hp;
  2970.     hp->hlength = len;
  2971.     hp->hvalue = value;
  2972.     emalloc(hp->hname, char *, len + 1, "install");
  2973.     memcpy(hp->hname, name, len);
  2974.     hp->hname[len] = '\0';
  2975.     return hp->hvalue;
  2976. }
  2977.  
  2978. /*
  2979.  * find the most recent hash node for name name (ending with first
  2980.  * non-identifier char) installed by install 
  2981.  */
  2982. NODE *lookup(NODE **table, char *name)
  2983. {
  2984.     register char *bp;
  2985.     register NODE *bucket;
  2986.     register short len;
  2987.  
  2988.     for (bp = name; is_identchar(*bp); bp++)
  2989.         ;
  2990.     len = bp - name;
  2991.     bucket = table[hashf(name, len, HASHSIZE)];
  2992.     while (bucket) {
  2993.         if (bucket->hlength == len && STREQN(bucket->hname, name, len))
  2994.             return bucket->hvalue;
  2995.         bucket = bucket->hnext;
  2996.     }
  2997.     return NULL;
  2998. }
  2999.  
  3000. #define HASHSTEP(old, c) ((old << 1) + c)
  3001. #define MAKE_POS(v) (v & ~0x80000000)    /* make number positive */
  3002.  
  3003. /*
  3004.  * return hash function on name.
  3005.  */
  3006. static short hashf(register char *name, register short len, short hashsize)
  3007. {
  3008.     register short r = 0;
  3009.  
  3010.     while (len--)
  3011.         r = HASHSTEP(r, *name++);
  3012.  
  3013.     r = MAKE_POS(r) % hashsize;
  3014.     return r;
  3015. }
  3016.  
  3017. /*
  3018.  * Add new to the rightmost branch of LIST.  This uses n^2 time, so we make
  3019.  * a simple attempt at optimizing it.
  3020.  */
  3021. /* statics moved outside for init */
  3022. static NODE *savefront = NULL, *savetail = NULL;
  3023. static NODE *append_right(NODE *list, NODE *new)
  3024. {
  3025.     register NODE *oldlist;
  3026.     
  3027.  
  3028.     oldlist = list;
  3029.     if (savefront == oldlist) {
  3030.         savetail = savetail->rnode = new;
  3031.         return oldlist;
  3032.     } else
  3033.         savefront = oldlist;
  3034.     while (list->rnode != NULL)
  3035.         list = list->rnode;
  3036.     savetail = list->rnode = new;
  3037.     return oldlist;
  3038. }
  3039.  
  3040. /*
  3041.  * check if name is already installed;  if so, it had better have Null value,
  3042.  * in which case def is added as the value. Otherwise, install name with def
  3043.  * as value. 
  3044.  */
  3045. static void func_install(NODE *params, NODE *def)
  3046. {
  3047.     NODE *r;
  3048.  
  3049.     pop_params(params->rnode);
  3050.     pop_var(params, 0);
  3051.     r = lookup(variables, params->param);
  3052.     if (r != NULL) {
  3053.         fatal("function name `%s' previously defined", params->param);
  3054.     } else
  3055.         (void) install(variables, params->param,
  3056.             node(params, Node_func, def));
  3057. }
  3058.  
  3059. static void pop_var(NODE *np, short freeit)
  3060. {
  3061.     register char *bp;
  3062.     register NODE *bucket, **save;
  3063.     register short len;
  3064.     char *name;
  3065.  
  3066.     name = np->param;
  3067.     for (bp = name; is_identchar(*bp); bp++)
  3068.         ;
  3069.     len = bp - name;
  3070.     save = &(variables[hashf(name, len, HASHSIZE)]);
  3071.     for (bucket = *save; bucket; bucket = bucket->hnext) {
  3072.         if (len == bucket->hlength && STREQN(bucket->hname, name, len)) {
  3073.             *save = bucket->hnext;
  3074.             freenode(bucket);
  3075.             free(bucket->hname);
  3076.             if (freeit)
  3077.                 free(np->param);
  3078.             return;
  3079.         }
  3080.         save = &(bucket->hnext);
  3081.     }
  3082. }
  3083.  
  3084. static void pop_params(NODE *params)
  3085. {
  3086.     register NODE *np;
  3087.  
  3088.     for (np = params; np != NULL; np = np->rnode)
  3089.         pop_var(np, 1);
  3090. }
  3091.  
  3092. static NODE *make_param(char *name)
  3093. {
  3094.     NODE *r;
  3095.  
  3096.     r = newnode(Node_param_list);
  3097.     r->param = name;
  3098.     r->rnode = NULL;
  3099.     r->param_cnt = param_counter++;
  3100.     return (install(variables, name, r));
  3101. }
  3102.  
  3103. /* Name points to a variable name.  Make sure its in the symbol table */
  3104. NODE *variable(char *name)
  3105. {
  3106.     register NODE *r;
  3107.  
  3108.     if ((r = lookup(variables, name)) == NULL)
  3109.         r = install(variables, name,
  3110.             node(Nnull_string, Node_var, (NODE *) NULL));
  3111.     return r;
  3112. }
  3113.  
  3114. /* Inits, required for CODE resource version of hAWK. */
  3115.  
  3116. extern void NullOut(char *str, long nBytes);
  3117.  
  3118. void InitAwkTabVars(void);
  3119.  
  3120. void InitAwkTabVars()
  3121.     {
  3122.     if (!hAWKstackDepth)
  3123.         {
  3124.         Inityytname();
  3125.         InitTokentab();
  3126.         }
  3127.     statTokTabNum = 0;
  3128.     
  3129.     
  3130.     want_regexp = 0;        /* lexical scanning kludge */
  3131.     want_assign = 0;        /* lexical scanning kludge */
  3132.     can_return = 0;        /* lexical scanning kludge */
  3133.     io_allowed = 1;    /* lexical scanning kludge */
  3134.     lineno = 1;        /* for error msgs */
  3135.     lexptr = NULL;        /* pointer to next char during parsing */
  3136.     lexptr_begin = NULL;    /* keep track of where we were for error msgs */
  3137.     curinfile = -1;    /* index into sourcefiles[] */
  3138.     param_counter = 0;
  3139.     NullOut((Ptr)variables, sizeof(NODE *)*HASHSIZE);
  3140.     errcount = 0;
  3141.     begin_block = NULL;
  3142.     end_block = NULL;
  3143. #ifndef YYIMPURE
  3144.     yychar = 0;            /*  the lookahead symbol        */
  3145.     NullOut((Ptr)(&yylval), sizeof(YYSTYPE));
  3146.     /*  the semantic value of the        */
  3147.                     /*  lookahead symbol            */
  3148.     NullOut((Ptr)(&yylloc), sizeof(YYLTYPE));
  3149.     /*  location data for the lookahead    */
  3150.                     /*  symbol                */
  3151.     yynerrs = 0;            /*  number of parse errors so far       */
  3152. #endif   /*YYIMPURE */
  3153.  
  3154.     token_start = NULL;
  3155.     
  3156.     /*- in yylex:*/
  3157.         did_newline = 0;
  3158.         file_opened = 0;
  3159.         fin = NULL;
  3160.         NullOut((Ptr)cbuf, BUFSIZ);
  3161.     /*- in *append_right:*/
  3162.         savefront = NULL; 
  3163.         savetail = NULL;
  3164.     
  3165.     }
  3166.  
  3167. void SaveAwkTabVars(void);
  3168. void RestoreAwkTabVars(void);
  3169. void SaveAwkTabVars()
  3170.     {
  3171.     BlockMove((Ptr)variables, (Ptr)(hs->variables), sizeof(NODE *)*HASHSIZE);
  3172.     hs->begin_block = begin_block;
  3173.     hs->end_block = end_block;
  3174.     }
  3175.  
  3176. void RestoreAwkTabVars()
  3177.     {
  3178.     BlockMove((Ptr)(hs->variables), (Ptr)variables, sizeof(NODE *)*HASHSIZE);
  3179.     begin_block = hs->begin_block;
  3180.     end_block = hs->end_block;
  3181.     }
  3182.